Найти наименьший положительный элемент массива Е(9) и его номер.
10-11 класс
|
Program egor4774442;
uses crt;
const n=9;
var
e:array[1..n] of integer;
min, nom,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
randomize;
for i:=1 to n do
e[i]:=random(100)-50;
min:=e[i];
nom:=1;
writeln('Элементы массива:');
for i:=1 to n do
begin
if (e[i]<min) and (e[i]>0) then
begin
min:=e[i];
nom:=i;
end;
write (e[i]:5);
end;
writeln();
writeln('Наименьший положительный элемент массива: ',min);
writeln('Его номер: ',nom);
end.
Другие вопросы из категории
составьте программу, которая из слова "тематика" получает слова " математика" и " тема" и выводит нэти слова на экран в столбик
Читайте также
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
Значения элементов массива ввести с клавиатуры. Только можно поподробней)
заданного числа Z,то найти сумму четных элементов,иначе- произведение нечетных элементов.
Друзья,очень нужна ваша помощь,пожалуйста,если Вы решили мне помочь-отпишитесь. Заранее спасибо!