Создать типизированный файл из K целых чисел и найти их среднее значение

@Helmer · Регистрация: 10.10.2014

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

Дано: целое число К.
Требуется: Создать типизированный файл из К целых чисел и найти их среднее значение.

@Joy · 16.12.2014, 12:22

Pascal

var
  f:file of integer;
  k,i,j:integer;
  s:real;
begin
  randomize;
  write('k=');readln(k);
  assign(f,'ifile.int');
  rewrite(f);
  for i:=1 to k do begin
    j:=random(100);write(j:5); write(f,j);
  end;
  writeln;
  close(f); reset(f);
  s:=0;i:=0;
  while not eof(f) do begin
    read(f,j);s:=s+j;i:=i+1;
  end;
  close(f);
  writeln('<S>=',s/i:0:2);
end.

@Helmer 1 / 1 / 0 Регистрация: 10.10.2014 Сообщений: 19
		1
	Создать типизированный файл из K целых чисел и найти их среднее значение 16.12.2014, 11:37. Показов 1124. Ответов 1 Метки нет (Все метки) Дано: целое число К. Требуется: Создать типизированный файл из К целых чисел и найти их среднее значение. 0

	16.12.2014, 12:22

Создать типизированный файл из K целых чисел и найти их среднее значение

Решение