Program my_prog_01; var n,i,x,t: integer; begin while (n< 0) do read (n); t: =0; for i: =1 to n do begin read (x); if (t t: =x; end; writeln (t); end. исправьте и допишите программу так, чтоб она находила минимальное и максимальное значение в ряде чисел (кол-во задаёт пользователь от 1 до 100 включительно). числа в данном ряде находятся в пределе от 1 до 1000 включительно и являются целыми. на выходе программа должна выдать на экран максимальное и минимальное число из данного ряда.