Задача: найти значение минимального элемента в одномерном массиве, который заполняется случайными числами. var M: [1..10] of ; i, min: integer; begin randomize; for i:= 1 10 do begin : = random (10); write (M[i],' '); end; min: = M[1]; for i:= 2 to 10 do

Question

Вопрос:

Ответ:

ФИО:Телефон:Емаил:Полное описание сути нарушения прав (почему распространение данной информации запрещено Правообладателем):

Accepted Answer

program max_min;

var M: array [1..10] of integer;

i, min: integer;

begin

randomize;

for i:= 1 to 10 do

begin

M[i] := random (10);

write (M[i],' ');

end;

min:= M[1];

for i:= 2 to 10 do

Ответ: program, array, integer, to, M[i]