Работа с внешними файлами

[бургер]

1. Сформировать вектор B[1:30] из случайных целых чисел в диапазоне [-10÷10]. Записать значения полученного вектора во внешний файл.

2. Считать значения матрицы А[1:5,1:6] из внешнего файла. Найти сумму элементов в каждой строке и сформировать из них массив. Если наибольшая из этих сумм не делится нацело на 5, то элементы полученного массива умножить на 5, иначе из элементов матрицы, кратных трем, сформировать вектор B. Записать полученные вектора во внешние файлы.

[DoDge_VipeR]

стучите! сделаю быстро и недорого!

[ROMA2PVT]

Program fil;
Var
f:text;
i,n:integer;
b:array [1..30] of integer;
Begin
Assign(f,'C:\data.txt');
Rewrite(f);
Write('Введите количество элементов: ');
readln(n);
randomize;
for i:=1 to n do
begin
b[i]:=-10+random(21);
end;
writeln;
for i:=1 to n do
begin
write(b[i]:3);
write(f,b[i]:3);
end;
Close(f);
end.

Первая.

[Stilet]

. Сформировать вектор B[1:30] из случайных целых чисел в диапазоне [-10÷10]. Записать значения полученного вектора во внешний файл.

Я бы так сделал:

type t=array[1..30] of integer;
var b:t;f:file of t;i:integer;
begin
 for i:=1 to 30 do b[i]:=-10+random(20);
 Assign(f,'c:\temp\q');rewrite(f);write(f,b);close(f);
  { TODO -oUser -cConsole Main : Insert code here }
end.

[ROMA2PVT]

блин я недочитал что размерность 30 элементов.

ну а вторую так:заполняешь файл элементами,в начало записываешь размерность 5 6,и читаешь из файла по этой размерности.ну и дальше производишь все действия.