Разработать программу для заполнения типизированного файла целыми числами в интервале [-200; 200]

@vadimkop93 · Регистрация: 07.03.2012

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

Разработать программу для заполнения типизированного файла целыми числами в интервале [-200; 200]. Найти количество и сумму нечетных чисел и записать в конец файла.

@tm2012 · 14.03.2012, 12:02

Pascal

uses crt;
var f1:file of integer;
n,i,x,kol,sum:integer;
begin
clrscr; randomize;
kol:=0; sum:=0;
assign(f1,'c:\file1');
rewrite(f1);
write('Количество чисел в файле: '); readln(n);
for i:=1 to n do begin x:=random(401)-200;
write(f1,x); if odd(x) then begin inc(kol); inc(sum,x); end;
end;
write(f1,kol);
write(f1,sum);
close(f1);
writeln('Файл создан!',#13#10,'Содержимое файла:',#13#10);
reset(f1);
while not eof(f1) do begin read(f1,x); writeln(x); end;
readkey;
end.

@vadimkop93 0 / 0 / 0 Регистрация: 07.03.2012 Сообщений: 21
		1
	Разработать программу для заполнения типизированного файла целыми числами в интервале [-200; 200] 14.03.2012, 10:42. Показов 1465. Ответов 1 Метки нет (Все метки) Разработать программу для заполнения типизированного файла целыми числами в интервале [-200; 200]. Найти количество и сумму нечетных чисел и записать в конец файла. 0

	14.03.2012, 12:02

Опции темы

Разработать программу для заполнения типизированного файла целыми числами в интервале [-200; 200]

Решение