//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
uses System;
begin
var a := ArrRandomInteger(100, -100, 100);
Println(a);
var max := a.Max();
a[a.IndexMax()] := 0;
max := max * a.Max();
var min := a.Min();
if (min < 0) then begin
a[a.IndexMin()] := 0;
min := min * a.Max();
end;
writeln(Math.Max(max, min));
end.
Sub z()
For i = 44 To 3 step -2
k=k+1
s=s+i
Next i
Print k;"; ";s
<span>End Sub</span>
Ответ:..............
Объяснение:.................
1.
const n=5;
var
a: array[1..n] of integer;
i: integer;
begin
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do
write(a[i], ' ');
end.
2.
const n=10;
var
a: array[1..n] of integer;
i: integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if i mod 3 = 0 then
write(a[i], ' ');
end.
Скинь фотографию что бы написать ответ