Заполнить случайным образом массив А [10]. Найти кол-во положительных элементов . Работа на оценку
Заполнить случайным образом массив А [10]. Найти кол-во положительных элементов . Работа на оценку
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
const n=10;
var a: array[1..n] of integer;
k,i: integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]>0 then k:=k+1;
writeln(k);
end.