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

Дано натуральное число N и массив натуральных чисел А, заданных случайным образом из диапазона от 30 до 60. Найти минимальный элемент и его номер. Решить задачу для N=10. на Паскале.

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

Не понял, зачем нужен N. Пишу без него, если что исправьте.

Program qwe;

const n=10;

Var a: array [1..n] of integer; i,min,nom:integer;

Begin

For i:=1 to n do

 a[i]:=30+Random(30);

Min:=100;

For i:=1 to n do

 if a[i]

                              min:=a[i];

                              nom:=i;

                              end;

Writeln(число ,min, номер его ,nom);

end.

end.