Определить количество чисел больших нуля среди: a1 a2 … a10
Определить количество чисел больших нуля среди: a1 a2 … a10
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы