1) Найти минимальный чётный элемент в массиве и его индекс. 2) Заполнить одномерный массив степенями числа 2. Всего 10 элементов в массиве.
1) Найти минимальный чётный элемент в массиве и его индекс. 2) Заполнить одномерный массив степенями числа 2. Всего 10 элементов в массиве.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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]
Не нашли ответ?
Похожие вопросы