Дан массив A размера N найти минимальный элемент из его элементов с нечетными номерами А1,А3,А5
5-9 класс
|
const N=10;
var i, m: integer;
a: array [1..N] of integer;
begin
for i := 1 to N do
begin
a[i] := random(50) - 25;
writeln('[', i, '] => ', a[i]);
end;
i := 1;
while (i <= N) do
begin
if (m > a[i]) then m := a[i];
i := i + 2;
end;
writeln(m);
end.
Другие вопросы из категории
i:=0;
S:=0
While i<3 do
Begin i:=i+1;
S:=S+i*i;
End;
S=?
Написать программу которая будет вводить целые числа до тех пор пока не будетвведён 0. Подсчитать количество положительных и отрицательных чисел.
Читайте также
Вывести их индексы
2.Даны 2 массива одинакового размера. Сформировать 3-й массив, каждый элемент которого равен минимальному из элементов с одинаковыми номерами.
3.Заполнить массив из 11 элементов числами 1, 2,3,..,11.
Заранее спасибо.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.