Определить количество чисел больших нуля среди: a1 a2 ... a10

Question

Информатика

Степуха

15 апреля, 19:08

Определить количество чисел больших нуля среди: a1 a2 ... a10

+4

Ответы (1)

Знаете ответ на вопрос?

Гаря · Answer 1

Program prog;

uses crt;

var a: array [1 ... 10] of integer;

i, k: integer;

begin

clrscr;

randomize;

k:=0;

for i:=1 to 10 do

begin

a[i]:=random (100) - 50;

writeln ('a[', i,'] = ', a[i]) ;

if a[i]>0 then inc (k) ;

end;

writeln;

write ('K = ', k) ;

end.