Текст задания
Сформировать двумерный массив B размером N x 3 (N – количество строк, равное предпоследней цифре пароля +2; 3 – количество столбцов) с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. Составить одномерный массив D из минимальных элементов столбцов матрицы B (оформить нахождение минимального элемента в виде процедуры). Вывести элементы массива D на экран и в файл.
Исходный код программы
uses crt;
var
b: array[1..100,1..100] of integer;
d: array[1..100] of integer;
i,j:integer;
Kr: text;
Procedure Min (var stolb:integer);
Var i,m:integer;
begin
d[stolb]:=b[1,stolb];
for i:=2 to 3 do
begin
if b[i,stolb]<d[stolb] then d[stolb]:=b[i,stolb];
end;
end;
begin
clrscr;
Assign(Kr,'Kr.txt');
rewrite(Kr);
randomize;
Writeln('massiv B:');
Writeln(Kr,'massiv B:');
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
b[i,j]:=random(10);
Write(b[i,j],' ');
Write(Kr,b[i,j],' ');
end;
writeln;
Writeln(Kr);
end;
Writeln('massiv D:');
Writeln(Kr,'massiv B');
For j:=1 to 3 do
begin
Min(j);
Write(d[j],' ');
Write(Kr,d[j],' ');
end;
close(kr);
readln;
end.
Содержимое текстового файла kr.txt
massiv B:
0 0 1
4 6 2
4 1 7
massiv B
0 0 1
