Question

СРОЧНО КР !!!! Написати задачу знаходження кількості введених позитивних чисел. Вводимо з клавіатури 6 чисел.

Answer 1

Ответ:

Вот рабочий код на языке Pascal/Delphi

Объяснение:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

 System.SysUtils;

var

 a:array[1..6] of integer;

 i:integer;

 posNum:integer;

begin

 posNum:=0;

 for i := 1 to 6 do

 begin

   writeln('Введите число номер ',i);

   readln(a[i]);

   if a[i]>0 then

     inc(posNum);

 end;

  writeln('Количество положительных равно ', posNum);

  readln;

end.