Заполнить массив SS(12) СЛУЧАЙНЫМИ ЧИСЛАМИ ОТ -5 ДО 5.Подсчитать количество положительных...

Question

Заполнить массив SS(12) СЛУЧАЙНЫМИ ЧИСЛАМИ ОТ -5 ДО 5.Подсчитать количество положительных элементов.

Answer 1

Const
n = 12;
var a:array[1..n] of integer;
k,i: integer;
Begin
For i:=1 to n do
a[i]:=Random(11)-5;
writeln('Исходный массив: ');
For i:=1 to n do write (a[i], ' ');
writeln; {переход на новую строку}
k:=0; {счётчик для положительных элементов}
For i:=1 to n do
begin
if a[i]>0 then k:=k+1;
end;
writeln('Количество положительных элементов = ', k);
end.

Comments

Операторные скобки в последнем цикле лишние

---

как Вам будет угодно

---

Спасибо за совет