Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Подсчитать количество элементов, больших заданного А и стоящих в строках с нечетными номерами

Ответ оставил Гость

Const
n=20;
var a,i,m:integer;
mass:array[1..n] of integer;
begin
m:=0;
write(А= );
read(a);
writeln(Введите числа:);
for i:=1 to n do
begin
mass[i]:=random(40)-10;
writeln(mass[,i,]= ,mass[i]);
if (mass[i]>a) and (i mod 2<>0) then m:=m+1;
end;
writeln(Кол-во элементов больших А и стоящих на нечетных местах равно ,m);
end.