Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Найти наименьший положительный элемент массива Е(9) и его номер.

Ответ оставил Гость

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]0) then
        begin
          min:=e[i];
          nom:=i;
        end;
      write (e[i]:5);
    end;
  writeln();
  writeln(Наименьший положительный элемент массива:  ,min);
  writeln(Его номер:  ,nom);
end.