Question

Дан целочисленный массив K состоящий их 20 элементов. Массив формируется случайными числами из промежутка [-30;70].
Определите количество отрицательных элементов с четными номерами.
Помогите решить в паскале 9 класс​

Answer 1

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