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

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;</span>

end.

Comments

Слушай, я тут проверил эту программу на Pascal и почему то мне пишут, что "Параметр цикла for в PascalABC.NET. должен описываться в заголовке цикла". Может где то надо ещё что-то написать или это я чего-то не поинмаю?

---

понимаю*

---

Запишите вот так for var i:=1 to 5 do

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.

Comments

Скопируй отсюда: pastebin.com/Jcj54XVK

---

Спасибо.