Помогите пожалуйста. Вот задача: Дан одномерный массив, состоящий из 10 элементов. Определить минимальный элемент этого массива.
5-9 класс
|
var i,min:integer;
a:array [1..10] of integer;
Begin
for i:= 1 to 10 do Begin
read(a[i]);
if (i=1) or (min>a[i])then
min:=a[i];
end;
writeln(min);
End.
Другие вопросы из категории
1).найти все симметричные четырехзначные числа,делящиеся на 27.
2).дан массив целых чисел,состоящий из 20 элементов.Заполнить его случайными числами и найти количество элементов массива. значения которых больше заданного числа и кратны 5.
в)Сообщение может пополнить знания человека,если
Читайте также
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
отсортировать в порядке возрастания элементов. Вывести:
- матрицу
- одномерный массив до сортировки
- одномерный массив после сортировки прошу. срочно!