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

@pcix_ · Регистрация: 21.11.2011

Author24 — интернет-сервис помощи студентам

Помогите решить только не по сложному.
pascal ввести n чисел,определить,сколько среди них положительных.Результат отправить в переменную k.

@КонецСвета · 21.11.2011, 17:20

Pascal

uses crt;
var n,i,a,k: integer;
begin
write ('Сколько чисел будет введено? ');
readln (n);
i:=1;
k:=0;
while i<=n do
      begin
      writeln ('Введите число ');
      readln (a);
      if a>0 then k:=k+1;
      i:=i+1;
      end;
writeln ('Количество положительных ',k);
end.

@pcix_ 0 / 0 / 0 Регистрация: 21.11.2011 Сообщений: 12
		1
	Определить, сколько положительных среди введенных чисел 21.11.2011, 17:12. Показов 1225. Ответов 1 Метки нет (Все метки) Помогите решить только не по сложному. pascal ввести n чисел,определить,сколько среди них положительных.Результат отправить в переменную k. 0

	21.11.2011, 17:20

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

Решение