Заполнить двухмерный массив NxN Найти максимальный элемент, стоящий на главной и побочной диагоналях. Поменять его местами с элементом стоящим на
5-9 класс
|
пересечении этих диагоналей.
const n=5; // обязательно должно быть нечетным
var
i,j,max,x,k:integer;
a:array[1..n,1..n]of integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,1];
for i:=1 to n do
begin
if a[i,i]>max then max:=a[i,i];
if a[i,n+1-i]>max then max:=a[i,n+1-i];
end;
k:=n div 2+1;
x:=a[k,k];
for i:=1 to n do
begin
if a[i,i]=max
then a[i,i]:=x;
if a[n+1-i,i]=max then a[n+1-i,i]:=x;
end;
a[k,k]:=max;
writeln('Измененный массив:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln
end
end.
Другие вопросы из категории
домиков.
Информатика, 7 класс
Алгоритм рисования домика (для Чертежника) я написала. Но вопрос с улицей из домиков. Надо сделать с помощью спец. алгоритма. Процесс я назвала "домик", его надо повторить 5 раз. Но вопрос, как каждый раз смещаться на несколько клеток вправо при каждом след. рисовании? Иначе будет рисовать по одному и тому же месту.
Читайте также
1. Задан массив целых чисел. Вычислить суммы нечетных и отрицательных элементов.
2.Задана матрица целых чисел. Вычислить сумму элементов расположенных на главной и побочной диагоналях.
И это на с++
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
Найти произведение отрицательных четных элементов второго столбца массива.
2. Дан двухмерный массив m*n.
Получите одномерный массив b, элементы которого равны min элементам по строкам.
максимальным элементом .Введите на экран исходный и полученные массивы