Question

Дан целочисленный массив, заданный датчиком случайных чисел в интервале -10 до 10. Найти среднее арифметическое положительных элементов массива

Pascal
Через Var решать)

Answer 1

Ответ:

program z1;

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

i,s,k:integer;

begin

s:=0;

k:=0;

write ('Массив ');

for i:= 1 to 10 do

begin

a[i]:=random(21)-10;

write(a[i],'  ');

if a[i]>0 then

begin

s:=s+a[i];

k:=k+1

end

end;

writeln;

writeln ('Среднее арифметическое положительных элементов ',s/k)

end.