В одномерном массиве a(10) найти значение и индекс наименьшего из положительных элементов
5-9 класс
|
var a:array[1..10] of integer;
i,min,j:integer;
begin
min:=maxint;
j:=0;
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]<min) and (a[i]>0) then
begin
min:=a[i];
j:=i;
end;
end;
writeln('Наименьший элемент массива равен',min,' индекс равен',j);
end.
Другие вопросы из категории
FTP-серверах?
может проверить условия: клетка закрашена/ не закрашена, сверху (снизу, справа, слева) край/ не край. В результате выполнения алгоритма испонитель перешел в клетку 5. Укажите номер исходной клетки( из пронумерованных).
пользователь,остальные вычисляют в программе. 213 101 214 или 102 215 103
Меня заколебало ночью домашку делать))))) Так что, прошу помощи))
{-_-}
-[!!!]-
...!!...
Читайте также
Программа сделана правильно,но как только ее хочешь запустить там пишет "введите длину массива"какое число нужно вводить?
массива которые имеют четные значения и не делятся на 3