Дан целочисленный массив K состоящий их 20 элементов. Массив формируется случайными числами из промежутка [-30;70].
Определите количество отрицательных элементов с четными номерами.
Помогите решить в паскале 9 класс
Определите количество отрицательных элементов с четными номерами.
Помогите решить в паскале 9 класс
Answers & Comments
const N=20;
var
K: array [1..N] of integer;
i,count:integer;
begin
count:=0;
for i:=1 to N do
begin
k[i]:=random(101)-30;
write(k[i]:4);
if (i mod 2 = 0) and (k[i]<0) then inc(count);
end;
writeln;
writeln('Cou