С помощью random(5) задать 10 целых чисел и выяснить , сколько пар соседних чисел, где первое число меньше второго. На экран вывести сами числа и на след. строке количество.
Пожалуйста, очень надо, завтра последний день сдачи )
Ответы
Ответ дал:
1
Ответ:
Program n3;
var q,w:integer;
a:array [1..10]of integer;
begin
for q:=1 to 10 do begin
a[q]:=random(5);
write(a[q],' ');
end;
for q:=1 to 9 do begin
if a[q]>a[q+1] then
w:=w+1;
end;
writeln(' ');
writeln(w);
end.
Объяснение:
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад
8 лет назад