В линейном массиве найти малый элемент из частей массива,имеющих нечетные
В линейном массиве определить малый элемент из элементов массива,имеющих нечетные номера
Задать свой вопрос
Галина Ерошевская
Неточное задание. Вы не указали, начиная с какого номера производится нумерация частей. Можно массив нумеровать от 0, от 1 и т.д.
1 ответ
Жан
Ваня
Const
handsfree = true;
var
a: array[1..100] of real;
i, n: integer;
min: real;
begin
ввод массива
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100);
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
минимум и максимум
min := a[1];
for i := 1 to n do
begin
if (min gt; a[i]) and (i mod 2=1) then min := a[i];
end;
writeln('min = ', min);
end.
handsfree = true;
var
a: array[1..100] of real;
i, n: integer;
min: real;
begin
ввод массива
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100);
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
минимум и максимум
min := a[1];
for i := 1 to n do
begin
if (min gt; a[i]) and (i mod 2=1) then min := a[i];
end;
writeln('min = ', min);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов