Question

Помогите пожалуйста, нужно набрать программу на Паскаль:
Дан массив из 10 отрицательных элементов (рандомных), нужно найти количество отрицательных чисел, равных -25 и -37

Answer 1

const

 N=10;

var

 i,count:integer;

 a:array [1..N] of integer;

begin

 count:=0;

 for i:=1 to n do  

   begin

     a[i]:=random(100)-100;

     if (a[i]=-25) or (a[i]=-37) then

       inc(count);

     write(a[i]:4);

   end;

 writeln;

 writeln('Count: ', count);

end.