Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / считает количество положительных чисел (из 10)

.pas
Источник:
Скачиваний:
285
Добавлен:
04.03.2014
Размер:
253 б
Скачать
program cycle_for1;
var i,kn:byte; x:real;
begin
kn:=0;
for i:=1 to 10 do
begin
writeln('Введите ',i,' число: ');
readln(x);
if x>0 then kn:=kn+1 {увеличиваем количество на 1}
end;
writeln('Вы ввели ',kn,' положительных чисел.');
readln
end.