Определить количество положительных чисел среди заданных n чисел

Dima22022005 Dima22022005    2   21.05.2019 20:20    1

Ответы
Farxadkishi Farxadkishi  16.06.2020 18:16

Я не знаю через массив или как это писать, поэтому напишу простейший вариант
program n_pologitelnih;

uses crt;

var i,n,k,a:integer;

begin

clrscr;

write('Введи N=>> ');

readln(n);

for i:=1 to n do

begin

write('Введи число');

readln(a);

if a>0 then k:=k+1;

end;

write('Положительных чисел из ',n,' введенных - ',k);

readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика