Найти наименьший положительный элемент массива Е(9) и его номер. составить алгоритм двумя способами(блок-схема и программа). Решите пожалуйста.
10-11 класс
|
Программа проверена - работает на Паскаль АВС. Блок-схема - во вложении
Program krisinaaa72;
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.
var a:array [1..100] of integer;
i,min:integer;
begin
min:=maxint;
for i:=1 to 100 do
begin
readln(a[i]);
if (a[i]<mix) and (a[i]>0) then mix:=a[i];
end;
writeln(mix);
end.
Другие вопросы из категории
Скорость чтения школьника старших классов равна 160 слов в мин. (одно слово включает 8 символов). Какое количество информации в Кб прочитает ученик за 7 часов чтения?
Вывести на экран в порядке возрастания все цифры, не являющиеся цифрами данного десятичного натурального числа (переменной целого
Читайте также
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
Значения элементов массива ввести с клавиатуры. Только можно поподробней)
заданного числа Z,то найти сумму четных элементов,иначе- произведение нечетных элементов.
Друзья,очень нужна ваша помощь,пожалуйста,если Вы решили мне помочь-отпишитесь. Заранее спасибо!
рассчитать по формуле tgG, где G номер элемента массива