Составьте программу которая создает файл из n элементов типа integer

Question

Информатика: Составьте программу которая создает файл из n элементов типа integer

жан108 · Accepted Answer

// PascalABC.NET 3.0,сборка 1073
const
n=10;
var
a,b:array[1..n] of integer;
i,p,k,max:integer;
begin
Randomize;
max:=-200; k:=0;
Writeln(' №   A   B AixBi');
Writeln('');
for i:=1 to n do begin
    a[i]:=Random(21)-10;
    b[i]:=Random(21)-10;
    p:=a[i]*b[i];
    Writeln(i:2,a[i]:4,b[i]:4,p:5);
    if p<0 then begin Inc(k); if p>max then max:=p end
end;
Writeln('');
Writeln('Количество AixBi<0 равно ',k);
Writeln('Максимум среди этих произведений равен ',max);
end.

Тестовое решение:
№   A   B AixBi

1   8 -7 -56
2 -7 -8   56
3 -4   3 -12
4 -9 -2   18
5 -10   3 -30
6 -3   3   -9
7   0   2    0
8 -9 -7   63
9 -7 -7   49
10   0 -7    0

Количество AixBi<0 равно 4
Максимум среди этих произведений равен -9

MOGZ ответил