Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и находит кол-во элементов, которые больше своего соседа слева. Паскаль.
Ответы
Ответ дал:
0
var a:array[1..10] of integer; i,k:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10)+1; write(a[i]:4);
end;
for i:=2 to 10 do
if a[i]>a[i-1] then inc(k);
writeln;
writeln('Колличество= ',k);
end.
begin
for i:=1 to 10 do
begin
a[i]:=random(10)+1; write(a[i]:4);
end;
for i:=2 to 10 do
if a[i]>a[i-1] then inc(k);
writeln;
writeln('Колличество= ',k);
end.
Ответ дал:
0
Что такое ink?
Ответ дал:
0
inc
Ответ дал:
0
Процедура для увеличения числа. В данном случаи мы увеличиваем переменную "K"
Ответ дал:
0
это то же самое что и k:=k+1;
Ответ дал:
0
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад
10 лет назад