var a,b: array[1..n] of integer; i, k, s: integer;
begin Randomize; Write('Массив 1: '); for i := 1 to n do begin a[i] := Random(50)+1; Write(a[i]:5); end; Writeln; Write('Массив 2: '); for i := 1 to n do begin b[i] := Random(50)+1; Write(b[i]:5); end; Writeln; Write('Результат: '); for i := 1 to n do Write(a[i]*b[n-i+1]:5); Writeln end.
Type mas=array[,]of integer; var i,n:integer; a:mas; b:array[1..4]of integer; begin write('Сколько точек: '); readln(n); setlength(a,3,n+1); for i:=1 to n do begin write('Введите координаты точки: '); readln(a[1,i],a[2,i]); end; for i:=1 to n do begin if a[2,i]=0 then begin if b[1]=0 then b[1]:=i else if a[1,i]<a[1,b[1]] then b[1]:=i; if b[2]=0 then b[2]:=i else if a[1,i]>a[1,b[2]] then b[2]:=i; end; if a[2,i]>0 then if b[3]=0 then b[3]:=i else if a[2,i]>a[2,b[3]] then b[3]:=i; if a[2,i]<0 then if b[4]=0 then b[4]:=i else if a[2,i]<a[2,b[4]] then b[4]:=i; end; writeln('Координаты вершин четырехугольника с наибольшей площадью:'); for i:=1 to 4 do write('(',a[1,b[i]],';',a[2,b[i]],') ') end.
n = 8;
var
a,b: array[1..n] of integer;
i, k, s: integer;
begin
Randomize;
Write('Массив 1: ');
for i := 1 to n do
begin
a[i] := Random(50)+1;
Write(a[i]:5);
end;
Writeln;
Write('Массив 2: ');
for i := 1 to n do
begin
b[i] := Random(50)+1;
Write(b[i]:5);
end;
Writeln;
Write('Результат: ');
for i := 1 to n do Write(a[i]*b[n-i+1]:5);
Writeln
end.
Тестовое решение:
Массив 1: 39 10 14 23 37 38 33 48
Массив 2: 22 45 1 17 16 42 21 39
Результат: 1521 210 588 368 629 38 1485 1056