Question

Запросить массив из 5 элементов и определить кол-во отрицательных элементов. (Как надо написать в Pascal)

Answer 1

var n:array [1..5] of integer;

var c: integer; 

begin

for i:=1 to 5 do

     if n[i]<0 then c:=c+1;

end.

Answer 2

program firstProgram;
varmasiv: Array[0..4] of integer;counter:integer;i:integer;beginRandomize();counter:=0;for i:= 0 to masiv.Count-1 do begin  masiv[i]:=random(-5,5);  writeln(masiv[i]); //вывод элементов массива (можно удалить). end; for i:=0 to masiv.Count-1 do begin  if masiv[i]<0 then   begin    counter:= counter+1;   end; end; Writeln('Всего отрицательных элементов: '+counter);Readln();end.