Ответ:
Скорее всего:
животные | Австралия | Бразилия
var a: array [1..100] of integer;
i,n,min,max:integer;
Begin
read(n);
for i := 1 to n do
read(a[i]);
min:=a[1];
max:=a[1];
for i:= 1 to n do begin
write(a[i],' ');
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln(min,max);
End.
Ответ:
program Num12;
var
i, n, c: Integer;
p: Double;
begin
c := 0;
p := 1;
for i := 83 downto 9 do begin
n := i * 12;
Write (n, ' ');
Inc (c);
p := p * n;
end;
WriteLn;
WriteLn ('Количество = ', c);
WriteLn ('Произведение = ', p);
ReadLn;
end.