Цитата:
Сообщение от ter12
4. Напишите программу определения количества элементов, удовлетворяющих условию 0<А[i],i в целочисленном массиве А[1..10].
|
Код:
var
a:array [1..10] of integer;
i,c:integer;
begin
c:=0;
randomize;
for i:=1 to 10 do begin
a[i]:=random(10)+1;
if (a[i]>0) and (a[i]<i) then inc(c);
end;
writeln ('Количество элементов, удовлетворяющих условию 0<a[i]<i, равно ',c);
readln
end.