Заполнить матрицу А 5х5 случайными числами до 20 и далее выполнить задание: 1.Найти максимальный элемент на побочной диагонали; 2.Составить одномерный массив В из минимальных элементов каждой строки; 3.В одномерном массиве В на...
Заполнить матрицу А 5х5 случайными числами до 20 и далее выполнить задание:
1.Найти максимальный элемент на побочной диагонали;
2.Составить одномерный массив В из минимальных элементов каждой строки;
3.В одномерном массиве В найти среднее арифметическое и вывести на экран элементы массива В, которые больше среднего арифметического.
Гость
Ответ(ы) на вопрос:
Гостьconst n=5;
var
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,max,min,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(21);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,n];
for i:=2 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln('1. max = ',max);
for i:=1 to n do
begin
min:=a[i,1];
for j:=2 to n do
if a[i,j]