Сrandom(5) задать 10 целых чисел и выяснить , сколько пар соседних чисел, где первое число меньше второго. на экран вывести сами числа и на след. строке количество. ( без употребления сложных операторовов ( array )
, нужно, завтра последний день сдачи )
Лuзуня
3
17.12.2019 18:25
0
Другие вопросы по теме Информатика
Виктория41116
17.12.2020 15:53
данчик321
17.12.2020 15:52
valeriaky0707
17.12.2020 15:52
lexiagahadi
17.12.2020 15:52
Александра142000
17.12.2020 15:51
gleb22848
19.07.2019 23:10
korol23
16.02.2020 15:22
3035111236
27.07.2019 01:20
Levi1234
27.07.2019 01:20
Популярные вопросы
- Составить 3 сложных предложений со словами безынтересный, сыграть ю, разыскивать...
3 - Угол аов равен 150 луч од делит угол аов на углы аод и дов градусная мера...
2 - Можете написать 5 загадок на кыргызском языке...
2 - Назовите общие правила сервировки стола к ужину...
1 - Сравни сочетания слов. в каком из них выделенное слово употреблено в прямом...
3 - Докажите что четырёх у которого все стороны равны является ромбом...
3 - Выполни действия. 800: 2+150 , 200+9*2 , 700-300: 3 , 50*2-100 , 16: 2+4:...
2 - Три с половиной километра. как это в цифрах?...
2 - Сочинение по тему моя будущая проффесия ветеринар...
3 - 3реченя с пидметом присудком и додатком...
2
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.