Помогите написать программу на паскале!

Создать файл а4, состоящий из 28 целых чисел. Найти среднее арифметическое всех чисел.

Question

Информатика

Венедиктыч

27 апреля, 04:18

Помогите написать программу на паскале!

Создать файл а4, состоящий из 28 целых чисел. Найти среднее арифметическое всех чисел.

+5

Ответы (1)

Знаете ответ на вопрос?

Ритуля · Answer 1

Program abc;

var f: text; { Если не будет работать, то написать вместо "text" "file of longint" или еще что-нибудь другое.}

x, y: longint;

i: byte;

begin

y : = 0;

assign (f, 'a4') ;

reset (f) ;

for i : = 1 to 28 do

begin

read (f, x) ;

y : = y + x;

end;

writeln (y / 28) ;

close (f) ;

end.

Помогите написать программу на паскале!Создать файл а4, состоящий из 28 целых чисел. Найти среднее арифметическое всех чисел.

Помогите написать программу на паскале!

Создать файл а4, состоящий из 28 целых чисел. Найти среднее арифметическое всех чисел.