Составить программу для нахождения среднего арифметического целых чисел от 15 до 25

Question

Информатика

Гермуся

26 сентября, 14:47

Составить программу для нахождения среднего арифметического целых чисел от 15 до 25

+4

Ответы (1)

Знаешь ответ?

Линка · Answer 1

Program task; const n=10; var a:array[1 ... n] of integer; i, s: integer;

arf:real; beginfor i: = 1 to 10 do begin begin a[i]:=15+random (26); write (a[i]:4);

s:=a[i]+s;

end;

arf:=s/n;

write ('среднее арифметическое равно = ' arf);

end;

end.