Как обычно, нужно было закрепить изученный материал по работе с массивами,  процедурами и файлами.


Program massiv;
const n=30;
type
ar=array[1..100] of real;
var
a:ar;
i:integer;
pr:real;
f1,f2:text;

PROCEDURE proc(var b:ar; m:integer; var pr:real);
var k:integer;
begin
pr:=1;
for k:=1 to m do
begin
if b[k]<0 then pr:=pr*b[k];
end;
end;

Begin
assign(f1,’dim1.txt’);
reset(f1);
for i:=1 to n do read(f1,a[i]);
close(f1);

assign(f2,’dim2.txt’);
rewrite(f2);
proc(a,n,pr);
append(f2);
for i:=1 to n do
begin
write(f2,a[i]:3:0);
end;
writeln(f2);
writeln(f2);
write(f2,’Proizvedenie=’,pr:5:0);
close(f2);

writeln(’Program COMPLITE!!!’);
writeln(’by adminadmin.ru’);

readln
end.

Содержимое файла DIM1.TXT:
56 54 -6 -4 -5 4 5 -6 -7 -3 6 4 -6 -9 -2 -7 -1 54 6 4 3 56 34 -4 -1 -5 6 4 4 4

Содержимое результирующего файла DIM2.TXT:

56 54 -6 -4 -5 4 5 -6 -7 -3 6 4 -6 -9 -2 -7 -1 54 6 4 3 56 34 -4 -1 -5 6 4 4 4

Proizvedenie=228614400