дан одномерный массив с индексами от 0 до 14, найти индекс минимального и максимального элементов массива
5-9 класс
|
(числа вводятся с клавиатуры)
var
a: array [0..14] of integer;
min, max, i: integer;
begin
for i := 0 to 14 do
readln(a[i]);
for i := 0 to 14 do
begin
if (a[min] > a[i]) then
min := i;
if (a[max] < a[i]) then
max := i;
end;
writeln('min: a[', min, ']', #13, 'max: a[', max, ']');
end.
Другие вопросы из категории
не равна 10 то программа должна заново спросить какие числа он хочет ввести) Делать в Turbo Pascal
Читайте также
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8
3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный
элементы с четными значениями на 1. Если элементы с чётными значениями отсутствуют, оставить массив без изменений.
2) Составте программуб которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10,затем преобразовывает его,увеличивая все элементы с нечётными значениями в три раза,а элементы с чётными значениями заменяя на 0.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.