Информатика, опубликовано 2018-08-22 21:17:28 by Гость
Определить количество чисел больших нуля среди: 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на