1) лебедев
2) рамеев
3) ершов
4) энгельберт
5) буш
6) цузе
7) жаккард
8) паскаль
1.
var
d : array of integer := new integer[20];
a : integer;
begin
d := arrRandom(20);
a := d[0];
for var i := 1 to d.Length-1 do if a > d[i] then a := d[i];
writeln('массив d=', d);
writeln('наименьший член массива: ', a);
end.
4.
var
d : array[1..20] of integer;
begin
for var i := 1 to 20 do d[i]:=i*2;
end.
Задание 1-3
<em>// PascalABC.NET 3.2, сборка 1325 от 19.10.2016</em>
begin
var a:=ArrRandom(10,-20,20); a.Println;
Writeln('Сумма элементов ',a.Sum);
Writeln('Произведение элементов ',a.Aggregate(1,(m,n)->m*n));
Writeln('Сумма четных чисел ',a.Where(x->x.IsEven).Sum);
end.
Пример
13 18 9 -4 -13 5 -9 1 16 -5
Сумма элементов 31
Произведение элементов 394243200
Сумма четных чисел 30
Задание 4
<em>// PascalABC.NET 3.2, сборка 1325 от 19.10.2016</em>
begin
var a:=ArrRandom(ReadInteger('N='),-20,20); a.Println;
Writeln('Максимальный элемент A[',a.IndexMax+1,']=',a.Max);
Writeln('Минимальный элемент A[',a.IndexMin+1,']=',a.Min);
end.
Пример
N= 13
12 7 13 8 -19 -19 -2 3 11 8 -3 -1 3
Максимальный элемент A[3]=13
Минимальный элемент A[5]=-19
Const
n = 20;
Var
A:array[1..n] of integer;
i:integer;
Begin
Randomize;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(11)-5;
Write(' ',A[i])
End;
WriteLn;
Write('Чётные элементы:');
For i:= 1 to N do
if A[i] mod 2 = 0 then Write(' ',A[i]);
ReadLn
End.