Консультация # 197193: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Нужно создать массив А[1..8] с помощью генератора случайных чисел с целыми от –100 до 100 и выведите его на экран. Отсортировать по возрастанию и вывести полученный массив на экран program a1; uses crt; var a: array [1..8] of integer; i: integer; begin clrscr;
Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Нужно создать массив А[1..8] с помощью генератора случайных чисел с целыми от –100 до 100 и выведите его на экран. Отсортировать по возрастанию и вывести полученный массив на экран program a1;
uses crt; var a: array [1..8] of integer; i: integer; begin clrscr; randomize; for i:=1 to 8 do begin a[i]:=random(-100, 100) ; write(a[i],' ') end; writeln;
readkey; end. не знаю как отсортировать ;(
uses crt;
const n=8;
var a:array[1..n] of integer;
i,j,x:integer;
begin
clrscr;
randomize;
writeln('Исходный массив');
for i:=1 to n do
begin
a[i]:=-100+random(201) ;{для любого Паскаля}
write(a[i]:5);
end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln('Отсортированный массив');
for i:=1 to n do
write(a[i]:5);
readkey;
end.
Консультировал: puporev (Профессионал)
Дата отправки: 24.11.2019, 19:36
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались.
Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора -
для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение.
Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал,
который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом.
Заходите - у нас интересно!