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

0 голосов
60 просмотров

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


Информатика (26 баллов) | 60 просмотров
Дан 1 ответ
0 голосов

Ответ:

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.

(2.2k баллов)