Определить в файле среднее арифметическое тех элементов, которые при делении на 4 дают остаток 1 или 3

@Никифоровна · Регистрация: 22.11.2013

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

Ввести файл F из 13 элементов. Определить в нём среднее арифметическое тех элементов, которые при делении на 4 дают остаток 1 или 3.

@Puporev · 06.12.2013, 16:12

Pascal

uses crt;
const n=13;
var f:file of integer;
    i,a,k:integer;
    sr:real;
begin
randomize;
assign(f,'file');
rewrite(f);
for i:=1 to n do
 begin
  a:=5+random(10);
  write(f,a);
 end;
seek(f,0);
writeln('Содержание файла');
sr:=0;
k:=0;
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if(a mod 4=1)or(a mod 4=3) then
   begin
    sr:=sr+a;
    k:=k+1
   end;
 end;
close(f);
writeln;
if k=0 then write('Нет чисел, дающих при делении на 4 остаток 1 или 3')
else
 begin
  sr:=sr/k;
  write('Ср. арифметическое чисел, дающих при делении на 4 остаток 1 или 3=',sr:0:2)
  end;
 end.

@Никифоровна 0 / 0 / 0 Регистрация: 22.11.2013 Сообщений: 14
		1
	Определить в файле среднее арифметическое тех элементов, которые при делении на 4 дают остаток 1 или 3 06.12.2013, 15:39. Показов 1796. Ответов 1 Метки нет (Все метки) Ввести файл F из 13 элементов. Определить в нём среднее арифметическое тех элементов, которые при делении на 4 дают остаток 1 или 3. 0

	06.12.2013, 16:12

Опции темы

Определить в файле среднее арифметическое тех элементов, которые при делении на 4 дают остаток 1 или 3

Решение