Предмет: Информатика,
автор: arina1283
С помощью 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.
Объяснение:
Интересные вопросы
Предмет: Английский язык,
автор: danila2983
Предмет: Информатика,
автор: deimosftr
Предмет: Английский язык,
автор: danila2983
Предмет: Алгебра,
автор: vladislavantip1
Предмет: Алгебра,
автор: saha94