Организуйте заполнение типизированного файла случайными целыми числами из интервала [-1000; 1000]

@Valkyr1e · Регистрация: 03.04.2014

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

Организуйте заполнение типизированного файла случайными целыми числами из интервала [-1000;1000]. Выведите содержимое файла на экран.

@Svager · 10.06.2014, 22:24

Сообщение от Valkyr1e

Организуйте заполнение типизированного файла случайными целыми числами из интервала [-1000;1000]. Выведите содержимое файла на экран.

это так сложно? Вы как учитесь?

Pascal

uses crt;
var f:file of integer;
    i,n,a:integer;
begin
 assign(f,'f.txt');
  rewrite(f);
 write('Êîë-ñòâî êîìïîíåíòîâ ôàéëà n=');
  readln(n);
 writeln('Èñõîäíûé ôàéëà :');
 for i:=1 to n do
  begin
   a:=-1000+random(2001);
   write(f,a);
   write(a:5);
  end;
 close(f);
end.

@Valkyr1e 0 / 0 / 0 Регистрация: 03.04.2014 Сообщений: 25
		1
	Организуйте заполнение типизированного файла случайными целыми числами из интервала [-1000; 1000] 10.06.2014, 13:04. Показов 1219. Ответов 1 Метки нет (Все метки) Организуйте заполнение типизированного файла случайными целыми числами из интервала [-1000;1000]. Выведите содержимое файла на экран. 0

Опции темы

Организуйте заполнение типизированного файла случайными целыми числами из интервала [-1000; 1000]

Решение