Дан массив А(6). Определите количество положительных элементов. Паскаль.
Дан массив А(6). Определите количество положительных элементов. Паскаль.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы