В массиве A, состоящем из 10 элементов, подсчитать количество положительных элементов

[Alex61]

В массиве A, состоящем из 10 элементов, подсчитать количество положительных элементов

[program123]

Вот

program noob;
uses crt;
var
a:array[1..10] of integer;
i:integer;
s:integer;
begin
clrscr;
writeln('input values');
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
if a[i]>0 then
s:=s+1;
writeln('koli4estvo:',s);
readln;
end.

[HoLToFF]

Сообщение от program123

Вот

program noob;

жестоко

[Alex61]

Человеческое спасибо!

[HoLToFF]

Так пооптимальнее наверно будет:

program noob;
uses crt;
var
a:array[1..10] of integer;
i:integer;
s:integer;
begin
clrscr;
s:=0;

for i:=1 to 10 do
   begin
      writeln('Vvedite ',i,'-i element massiva: ');
      readln(a[i]);
      if a > 0 then inc(s);
  end;
writeln('Polojitelnih elementov: ',s);
readln;
end.

[Jora_Kornev]

HoLToFF +1