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

@Dj Burkikhan · Регистрация: 19.11.2010

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

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

@Мирзали · 20.04.2011, 15:10

Program burki;
uses crt;
var f:file of integer;
n,i,x:integer;
begin
clrscr;
randomize;
assign(f,'burki.txt'); rewrite(f);
readln(n);
for i:=1 to n do begin x:=random(20)+1;
for i:=1 to n do begin
if x<0 then write(f,x); end; end;
reset(f); read(f,x);
for i:=1 to filesize(f) do writeln(x:3);
close(f);
end;
readln;
end.

@Мирзали · 20.04.2011, 15:11

Извини, но она не проверена, т.к. на квартире нет компа.

@Dj Burkikhan · 20.04.2011, 20:10 **[ТС]**

Это Тимуру :d

@Мирзали · 21.04.2011, 14:12

И по ходу я опять не до конца дочитал условие)

@Мирзали · 21.04.2011, 14:16

Эта программа записывает все отрицательные числа

@Dj Burkikhan 0 / 0 / 0 Регистрация: 19.11.2010 Сообщений: 77
		1
	Записать в файл прямого доступа N действительных чисел. Найти наибольшее из значении модулей компонентов с нечетными номерами 20.04.2011, 09:04. Показов 1561. Ответов 5 Метки нет (Все метки) записать файл прямого доступа N действительных чисел. Найти наибольшее из значении модулей компонентов с нечетными номерами 0

@Мирзали 35 / 29 / 15 Регистрация: 20.11.2010 Сообщений: 481
	20.04.2011, 15:10	2
	Program burki; uses crt; var f:file of integer; n,i,x:integer; begin clrscr; randomize; assign(f,'burki.txt'); rewrite(f); readln(n); for i:=1 to n do begin x:=random(20)+1; for i:=1 to n do begin if x<0 then write(f,x); end; end; reset(f); read(f,x); for i:=1 to filesize(f) do writeln(x:3); close(f); end; readln; end. 0

@Мирзали 35 / 29 / 15 Регистрация: 20.11.2010 Сообщений: 481
	20.04.2011, 15:11	3
	Извини, но она не проверена, т.к. на квартире нет компа. 0

@Dj Burkikhan 0 / 0 / 0 Регистрация: 19.11.2010 Сообщений: 77
	20.04.2011, 20:10 [ТС]	4
	Это Тимуру :d 0

@Мирзали 35 / 29 / 15 Регистрация: 20.11.2010 Сообщений: 481
	21.04.2011, 14:12	5
	И по ходу я опять не до конца дочитал условие) 0

@Мирзали 35 / 29 / 15 Регистрация: 20.11.2010 Сообщений: 481
	21.04.2011, 14:16	6
	Эта программа записывает все отрицательные числа 0