Составьте программу которая подсчитывает количество положительных элементов одномерного массива
Answers & Comments
miha23d
Type massiv = array [1..1000] of integer; var arr : massiv; i,n,s: integer; begin write('Введите кол-во элементов : '); readln(n); for i:=1 to n do begin write('Введите ',i, ' элемент : '); readln(arr[i]); if arr[i]>0 then s:=s+1; end; writeln('Количество положительных элементов: ', s); end.
1 votes Thanks 1
miha23d
у меня там есть недочет: 0 тоже положительное число поэтому сравнение будет таким if arr[i]>=0 then.....
Answers & Comments
var arr : massiv;
i,n,s: integer;
begin
write('Введите кол-во элементов : ');
readln(n);
for i:=1 to n do
begin
write('Введите ',i, ' элемент : ');
readln(arr[i]);
if arr[i]>0 then s:=s+1;
end;
writeln('Количество положительных элементов: ', s);
end.