Вопрос по информатике:
Дан массив В(20). Заполните его случайными числами в интервале [0,100]. Отсортируйте по убыванию и выведите массив на экран.
для паскаля
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 10.01.2018 16:58
- Информатика
- remove_red_eye 13831
- thumb_up 18
Ответы и объяснения 1
Program arra;
const m=20;
var
B: Array[1..m] Of Integer;
i,j,k:integer;
BEGIN
randomize;
for i:=1 to m do begin
B[i]:= random(101);
end;
write('Массив до сортировки: ');
for i:=1 to m do begin
write(B[i]);
write(' ');
end;
writeln;
for i := 1 to m-1 do
for j := 1 to m-i do
if B[j] < B[j+1] then begin
k := B[j];
B[j] := B[j+1];
B[j+1] := k
end;
write('Массив после сортировки: ');
for i:=1 to m do begin
write(B[i]);
write(' ');
end;
end.
- 11.01.2018 15:34
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.