{Массив задаётся с генератора случайных чисел. после того как он задан, последовательно перебираются все элементы и определяется наименьший элемент.} procedure minZNmas; var mas: array[1..15] of integer; k: integer; min: integer; s: string; begin
randomize; //Заполнение массива случайными величинами s:=''; for k:=1 to 15 do begin mas[k]:=random(800); s:=s+IntToStr(mas[k])+','; end;
//Поиск минимального значения min:=mas[k]; for k:=1 to 15 do if mas[k]<min then min:=mas[k];
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017 // Внимание! Если программа не работает, обновите версию!
begin Write('Введите количество строк и столбцов массива: '); var (m,n):=ReadInteger2; Writeln('*** Исходный массив ***'); var a:=MatrRandom(m,n,-5,5); a.Println(3); Writeln(3*a.ColCount*'-'); var k:=ReadInteger('Введите число А для замены нулей:'); a.Transform(x->x=0?k:x); // вот это и вся замена... Writeln('*** Результат ***'); a.Println(3) end.
10485760, если без пробелов