Сначала приведены примеры решения с формулировкой задач, на основе примеров выполнить задания указанные ниже Задача 1. Из N целых чисел найти минимальное значение. VAR MI, X: INTEGER; I,N: INTEGER ; BEGIN WriteLn ('Введите количество значений'); ReadLn (n); WriteLn('Введите первое значение'); ReadLn (mi); FOR I:=2 TO N DO Begin WriteLn(‘Введите ‘,I,’ -е значение’); ReadLn(x); IF X0) Then Begin MI:=X; FL1:=1; End; IF (X<0) AND (X>MA) Then MA:=X; IF (X>0) AND (X

tv240067    1   18.03.2020 04:03    1