#1 30.05.07 00:41
Помогите решить задачу в Паскале
Задача: сформировать двумерный массив B размером 4*3 (4– количество строк, 3– количество столбцов) с помощью генератора случайных чисел и вывести элементы массива на экран и в фаил. Составить одномерный массив D из минималных элементов столбцов матрицы B ( оформить нахождение минимального элемента в виде процедуры). Вывести элементы массива D на экран и в фаил
срочно нужно... пожалуйста...
Offline
#2 30.05.07 07:49
Re: Помогите решить задачу в Паскале
Вот прога. Только она на экран массивы выводит, не умею работать с файлами.
Код::
program Massiv_b;
uses Crt;
type massiv=array [1..4,1..3] of integer;
var i,j: integer;
b:massiv;
procedure Minim(var b: massiv);
var min,i,j:integer;
d:array [1..4] of integer;
begin
writeln;
writeln('D:');
for i:=1 to 3 do
begin
min:=b[1,i];
for j:=2 to 4 do
if b[j,i]<min then min:=b[j,i];
d[i]:=min;
write(d[i],' ');
end;
end;
begin
randomize;
clrscr;
write('B:');
for i:=1 to 4 do
begin
writeln;
for j:=1 to 3 do
begin
b[i,j]:=random(100);
write(b[i,j],' ');
end;
end;
Minim(b);
end.Offline
