Регистрация
МорскойКот
21.03.2023 14:27
Информатика
Есть ответ 👍

Уровень A. Напишите программу, которая находит среднее арифметическое всех чисел, записанных в файле в столбик, и выводит результат в другой файл.(ошибка времени исполнения)

var
a, b, c: integer;
d: text;
begin
assign(d,'input.txt');
reset(d);
c:=0;
b:=0;
while not eof do
begin
readln(d,a);
c:= c + a;
b:= b + 1;
end;
close(d);
assign (d,'output.txt');
rewrite(d);
write(d,c/b);
close(d);
end.

218
375
Посмотреть ответы 1

Ответы на вопрос:

Tasha00000007
Tasha00000007
4,8(73 оценок)
Var a: array [1..15] of integer;     i, m: integer; begin       m : = 1;       for i : = 1 to 10 do      begin           a[i] : = random(20);           writeln('[', i, '] => ', a[i]);           if (a[i] mod 2 = 1) then m : = m * a[i];       end;       writeln(m); end.уже делал)

Популярно: Информатика