Вариант №3 Опишите каждый фрагмент программы на естественном языке:
Var Z: array[1..15] of integer;
for i:=1 to 15 do Z[i]:=random(12)-7;
for i:=1 to 15 do write (('Z[', i, ']=', Z[i]););
for i:=1 to 15 do if Z[i] 7 then s:=s*Z[i];
Сформулируйте условие задачи, исходя из вышеописанных фрагментов

//Pascal ABC.NET v3.1 сборка 1172

//Ввод файла в текстовом редакторе
Var
 f:text;
 s:string;
 a:integer;
begin
 writeln('First file:');
 assign(f,'text.txt');
 reset(f);
 while not Eof(f) do
  begin
   read(f,a);
   write(a:4);
   if (a>8) or (a<6) then
 a:=sqr(a);
   s:=s+a+' '; 
 end;
 close(f);
 writeln;
 writeln('Final file:');
 write(s);
 assign(f,'text.txt');
 rewrite(f);
 write(f,s);
 close(f);
end.

Пример работы программы:
First file:
   1   2   3   4   5   6   7   8
Final file:
1 4 9 16 25 6 7 8 

//Ввод файла  программе

Var
 f:text;
 s,s1:string;
 a,i:integer;
begin
 assign(f,'text.txt');
 rewrite(f);
 for i:=1 to 10 do
 begin
  read(a);
  write(f,a); 
 s1:=s1+inttostr(a)+' ';
  if (a>8) or (a<6) then a:=sqr(a);
  s:=s+inttostr(a)+' ';
 end;
 close(f);
 writeln('First file:');
 writeln(s1);
 writeln('Final file:');
 write(s);
 assign(f,'text.txt');
 rewrite(f);
 write(f,s);
 close(f);
end.

Пример ввода:
1
2
3
4
5
6
7
8
9
10
Пример вывода:
First file:
1 2 3 4 5 6 7 8 9 10
Final file:
1 4 9 16 25 6 7 8 81 100 

//Pascal ABC.NET v3.1 сборка 1172

Const
 n=6;

Var
 f,h:text;
 i,maxi:integer;
 ar:array[1..n] of real;
begin
 ar[6]:=real.MinValue;
 assign(f,'text.txt');
 rewrite(f);
 for i:=1 to n-1 do
  begin
   readln(ar[i]);
   if ar[i]>ar[6] then
    begin
     ar[6]:=ar[i];
     maxi:=i;
    end;
 end;
 ar[maxi]:=ar[maxi]/2;
 writeln('F:');
 for i:=1 to n do
  begin
   write(f,ar[i],' ');
   write(ar[i],' ');
  end;
 close(f);
 writeln;
 i:=0;
 writeln('H:');
 assign(h,'text1.txt');
 rewrite(h);
 while i<n do
 begin
 i:=i+2;
 write(h,ar[i],' ');
 write(ar[i]:4);
 end;
 close(h);
end.

Пример ввода:
1
2
3
4
5
Пример вывода:
F:
1 2 3 4 2.5 5
H:
  2   4   5