Дана матрица размерностью 5*5, заполненная случайными числами от 1 до 20. Необходимо написать программу. Требуется:
а) определить максимальный элемент среди элементов, расположенных под побочной
диагональю матрицы;
б) составить одномерный массив из произведений каждого столбца матрицы;
в) определить № столбца, где произведение минимально.
Разрабатываемое приложение должно содержать:
1. Ввод исходных данных с помощью датчика случайных чисел
2. Вывод на экран исходного массива
3. Необходимые вычисления
4. Вывод на экран результатов вычислений и результирующего одномерного массива
Язык программирования - PASCAL
а) определить максимальный элемент среди элементов, расположенных под побочной
диагональю матрицы;
б) составить одномерный массив из произведений каждого столбца матрицы;
в) определить № столбца, где произведение минимально.
Разрабатываемое приложение должно содержать:
1. Ввод исходных данных с помощью датчика случайных чисел
2. Вывод на экран исходного массива
3. Необходимые вычисления
4. Вывод на экран результатов вычислений и результирующего одномерного массива
Язык программирования - PASCAL
More Questions From This User See All
Answers & Comments
const
n=5;
type
st = array [1..n] of integer;
var
a:array [1..n] of st;
b:st;
i,j,maxp:integer;
begin
for i:=1 to n do
begin
b[i]:=1;
for j:=1 to n do
begin
a[j,i]:=random(20)+1;
b[i]:=b[i]*a[j,i];
end;
end;
maxp:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]:4);
if i+j>n+1 then
if a[i,j]>maxp then
begin
maxp:=a[i,j];
end;
end;
writeln;
end;
writeln;
writeln('Максимальное под побочной диагональю: ',maxp);
for i:= 1 to n do
write(b[i],' ');
end.