Предмет: Информатика,
автор: 35719danya
Pascal ABC
С помощью random(5) задать 10 целых чисел и выяснить , сколько пар соседних чисел, где первое число меньше второго. На экран вывести сами числа и на след. строке количество
antoxapantelee:
нужно без array?
Ответы
Автор ответа:
1
Ответ:
Program n3;
var q,w,a,z:integer;
begin
for q:=1 to 10 do begin
a:=random(5);
write(a,' ');
if z<a then begin
w:=w+1;
end;
z:=a;
end;
writeln(' ');
writeln(w-1);
end.
Объяснение:
Похожие вопросы