типизированные файлы, целочисленные массивы Опции

[D-7]

Помогите Люди Добрые!
Дан файл F, элементами которого являються целочисленные массивы a0,a1,a2,a3,a4. Требуеться преобразовать каждый из массивов, заменив элементы с наибольшим значением на 0. Полученные массивы должны быть записаны в тот же самый файл F.
Исходные данные:
5 6 7 4 8
11 8 3 2 1
2 1 -5 -6 -10
-8 2 -9 -2 -1

[Sozialist]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type
TMas=array[1..4] of integer;
Var
a:TMas;
F:file of TMas;
i,k:byte;
max:integer;
begin
AssignFile(F,'data.dat');
rewrite(F);
for k:=1 to 5 do
 begin
 writeln('Fill in the ', k ,' massive:');
 for i:=1 to 4 do read(a[i]);
 write(F,a);
 end;

reset(F);
for i:=1 to 5 do
 begin
 read(F,a); max:=a[1];
 for k:=1 to 3 do
  begin
  if a[k+1]>max then max:=a[k+1];
  end;

 for k:=1 to 4 do
 if a[k]=max then a[k]:=0;
 seek(F,i-1);
 write(F,a);
 end;
closeFile(F);
writeln;
//вывод на экран
reset(F);
for i:=1 to 5 do
 begin
 read(F,a);
 for k:=1 to 4 do write(' ',a[k]);
 writeln;
 end;
 readln; readln;
end.

С тебя бутыль, хоть я и не пью. Если не в дельфяке программируешь, перепиши там пару строк. Я не шарю в простом паскале

Сообщение отредактировано: Sozialist - 22.03.2007 0:43