Pascal ABC
С помощью random(5) задать 10 целых чисел и выяснить , сколько пар соседних чисел, где первое число меньше второго. На экран вывести сами числа и на след. строке количество
С помощью random(5) задать 10 целых чисел и выяснить , сколько пар соседних чисел, где первое число меньше второго. На экран вывести сами числа и на след. строке количество
More Questions From This User See All
Answers & Comments
Ответ:
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.
Объяснение: