Дан массив из n элементов. Найти наименьший элемент массива.
5-9 класс
|
Написать в паскале абс
Program FindMin;
const n = 5;
var
min,i:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do
readln(a[i]);
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
Writeln('Min ',min);
end.
Другие вопросы из категории
дискретизации 44 100 Гц?
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
1.дан массив 10 на 10,подсчитать сумму элементов расположенных на главной диагонали.
2.дан массив 10 на 10,найти наименьший элемент массива.
спасибо за помощь)
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
различны). Найти минимальный элемент численного массива и его порядковый номер.
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*