Размещено 5 лет назад по предмету
Информатика
от kolesnikov9781oxe5ss
Из заданной матрицы А(7х5), элементы которой формируются как массив случайных чисел, сформировать одномерный массив В, состоящий из минимальных элементов столбцов матрицы. Во вновь сформированном массиве В определить среднее арифметическое элементов. Исходную матрицу А и полученный массив В записать в текстовый файл.
Ниже есть наработка:
uses crt;
var a:array[1..5,1..7] of integer;
b:array[1..7] of integer;
f:text;
min,j,i,m:integer;
begin
assign(f,'Результат задачи 1.1.txt');
rewrite(f);
begin
clrscr; randomize;
writeln('Матрица А:');
for i:=1 to 5 do
begin
for j:=1 to 7 do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:4);
if i=j then
b[i]:=a[i,j];
end;
writeln;
end;
writeln;
writeln('Исходный массив В:');
for i:=1 to 7 do
write(b[i]:4);
writeln;
for i:=1 to 7 do
begin
if b[i]
begin
min:=b[i];
m:=i;
end;
end;
writeln;