Файл целых чисел. Найти среднее арифметическое и сумму этих чисел

@CmPunk67 · Регистрация: 11.10.2010

Студворк — интернет-сервис помощи студентам

В файл целых чисел записаны 10 случайных целых чисел. Просмотреть содержимое файла на экране. Найти среднее арифметическое и сумму этих чисел.
спасибо!!!!!!

@Мирзали · 21.04.2011, 11:34

Pascal

Program jg;
uses crt;
var f:file of integer;
       x,i,sa:integer;
begin
clrscr;
randomize;
assign(f,'m.txt'); rewrite(f);
for i:=1 to 10 do begin
x:=random(10)+1;
for i:=1 to 10 do write(f,x);
end;
reset(f); read(f,x);
for i:=1 to n do writeln(x:3);
for i:=1 to 10 do
begin
inc(x[i]);
sa:=x[i]/10;
writeln('средняя арифметическая сумма равна=',sа:2);
end;
close(f);
readln;
end.

@CmPunk67 1 / 1 / 0 Регистрация: 11.10.2010 Сообщений: 85
		1
	Файл целых чисел. Найти среднее арифметическое и сумму этих чисел 14.03.2011, 15:33. Показов 1861. Ответов 1 Метки нет (Все метки) В файл целых чисел записаны 10 случайных целых чисел. Просмотреть содержимое файла на экране. Найти среднее арифметическое и сумму этих чисел. спасибо!!!!!! 0

Опции темы

Файл целых чисел. Найти среднее арифметическое и сумму этих чисел

Решение