Опубликовано 5 лет назад по предмету Информатика от kristinaaa72

Найти наименьший положительный элемент массива Е(9) и его номер. составить алгоритм двумя способами(блок-схема и программа). Решите пожалуйста.

Ответ

Ответ дан БелыйЕжик

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.
Ответ

Ответ дан Alphaeus

Программа проверена - работает на Паскаль АВС. Блок-схема - во вложении

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.

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт

Другие вопросы

Математика - 3 недели назад

Математика - 3 недели назад

Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Русский язык - 1 месяц назад

Подчеркните грамматическую основу. определите вид дополнения (прямое или косвенное), подпишите их 1) я отправил сестре телеграмму с поздравлением 2) учёные доказали существование жизни в космосе 3) он не знал никаких радостей, кроме чтения книг. 4) и поныне славятся у нас на севере замечательные русские умельцы.5) после тёплой ясной погоды наступило ненастье.6) подруга на станции купила новый иллюстрированный журналы и свежий мягкий хлеб. 7)хохлатые курицы ищут в сене мошек да букашек.8) и туман, и непогоду осень поздняя несёт

Что ты хочешь узнать?

Задай вопрос