Дан массив А(6). Определите количество положительных элементов. Паскаль.
Answers & Comments
Мавортий
Var a:array[1..6] of integer; k,i:integer; begin k:=0; for i:=1 to 6 do begin writeln('Введите элемент массива'); readln(a[i]); if a[i]>0 then k:=k+1; end; writeln('Количество положительных элементов : ',k); end.
Answers & Comments
k,i:integer;
begin
k:=0;
for i:=1 to 6 do
begin
writeln('Введите элемент массива');
readln(a[i]);
if a[i]>0 then k:=k+1;
end;
writeln('Количество положительных элементов : ',k);
end.