1)const
n1=1000;
type
mas=array[1..n1] of integer;
var
a:mas;
n,i:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do write(a[i],' ');writeln;
<span>end.
А вторую и третью я объединила:
</span>const
n1=1000;
type
mas=array[1..n1] of integer;
var
a:mas;i,min:integer;
begin
randomize;
for i:=1 to 5 do a[i]:=random(101)+0;
for i:=1 to 5 do write(a[i],' ');writeln;
min:=a[1];
for i:=2 to 5 do if a[i]<min then min:=a[i];
writeln(min);
end.
<h3>// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3><h2>С массивом</h2>
begin
var a := ReadArrInteger(ReadlnInteger);
var (i, v) := a.Numerate.Where(t -> t[1].IsEven and (t[1] mod 10 = 8))
.MinBy(t -> t[1]);
i.Println
end.
<h2>С последовательностью</h2>
begin
var (n, min, i, imin) := (ReadlnInteger, integer.MaxValue, 1, 1);
var s := ReadSeqInteger(n);
foreach var t in s do
begin
if (t < min) and t.IsEven and (t mod 10 = 8) then
(min, imin) := (t, i);
Inc(i)
end;
imin.Println
end.
(x+y+z)÷3 тоесть:мы складываем x y z и делим на 3
Частично и часто...спасибо за внимание.