1) Найти минимальный чётный элемент в массиве и его индекс. 2) Заполнить одномерный...

Question

1) Найти минимальный чётный элемент в массиве и его индекс. 2) Заполнить одномерный массив степенями числа 2. Всего 10 элементов в массиве.

Answer 1

Const
    n = 10;

var
    i, imin: integer;
    a: array[1..n]of integer;

begin
    imin := 2;
    for i := 1 to n do
    begin
        a[i] := random(100) - 50;
        if (i mod 2 = 0) and (a[imin] > a[i]) then
            imin := i;
    end;
    writeln('A[', imin, '] = ', a[imin]);
    {вторая часть}
    writeln();
    a[1] := 2;
    for i := 2 to n do
        a[i] := 2 * a[i - 1];
   
    for i := 1 to n do
        write(a[i], ' ');
end.

Comments

если правильно, то поставь лучшее решение пожалуйста, надо для статуса) заранеее спасибо)

Answer 2

1.
var
a: array [1..11] of integer;
i, min, imin: integer;
begin
for i:=1 to 10 do read(a[i]);
min:=32000;imin:=0;
for i:=1 to 10 do if (a[i] mod 2) = 0 then 
 if a[i]write('Минимальное:', min, ' Индекс:', imin);
end.

2.
function stepen(c, s: integer):integer;
var
j, rez: integer;
begin
rez:=c;
for j:=1 to (s-1) do rez:=rez*c;
stepen:=rez;
end;
var
a: array [1..11] of integer;
i, min, imin: integer;
begin
for i:=1 to 10 do a[i]:=stepen(2, i);
for i:=1 to 10 do write(a[i], ' ');
end.

Если возникли вопросы или ошибки в ходе работы программы, пиши в комментариях.