Информатика, опубликовано 2018-08-22 20:14:47 by Гость
Составьте программу ,которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов,которые больше своего соседа слева
Ответ оставил Гость
Program gt;
var a:array[1..10]of integer;
i,k:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(10)+1;
k:=0;
for i:=2 to 10 do
if(a[i]>a[i-1])then k:=k+1;
writeln(k);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на