Создать файл из одномерных целочисленных массивов a1,a2,. ,a10, заполненных числами от –50 до 50. Переписать в другой…
Задача:
Создать файл из одномерных целочисленных массивов a1,a2,. ,a10, заполненных числами от –50 до
50. Переписать в другой типизированный файл те массивы, у которых сумма элементов больше 0.
Uses crt;
type TA=array[1..10] of integer;
var
i,j,k,S: integer;
a, Sum: TA;
F1,F2: file of TA;
begin
clrscr;
writeln(' Sozdanie faila file1.txt');
assign(F2,'file2.txt');
assign(F1,'file1.txt');
rewrite(F1);
{rewrite(F2);}
randomize;
for j:=1 to 10 do
begin
for i:=1 to 10 do a[i]:=random(101)-50;
write(F1,a);
for i:=1 to 10 do
write(a[i]:3,' ');
writeln;
end;
readln;
close(F1);
reset(F1);
{2 aya 4ast programmy}
writeln('Perepisyvanie massivov v fail file2.txt');
rewrite(F2);
for i:=1 to 10 do
begin
read(F1,a);
begin
S:=0;
for j:=2 to 10 do S:=S+a[j];
if S>0 then
begin
{write('Summa=',S,'; ');}
for k:=1 to 10 do
write(a[k]:3, ' ');
writeln;
end else
if S<0 then
begin
for j:=1 to 10 do a[j]:=0;
end
end
end;
for j:=1 to 10 do
if (j<>S) and (j<>a[j]) then
write(F2,a);
close(F2);
close(F1);
readln; end. |