Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 975 ответов!

Дан целочисленный двумерный массив a(n,n) n=6. Найти среднее геометрическое элементов побочной диагонали и поставть его на место максимального элемента

10-11 класс

главной диагонали.

Emashurenko 19 февр. 2014 г., 8:19:31 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Valeriyshutyae
19 февр. 2014 г., 9:36:21 (10 лет назад)

Program ANT;
const n=6; m=6;
var i,j:integer;
var a:array [1..n,1..m] of real;
begin
writeln('Введите матрицу');
for i:=1 to n do
for j:=1 to m do begin
writeln('a[',i,',',j,']');
readln(a[i,j]);
end;
writeln('Исходная матрица');
for i:=1 to n do
for j:=1 to m do begin
writeln(a[i,j]);
writeln;
end;
u:=0;
for i:=1 to n do begin
for j:=1 to m do 
if i+j=7 then u:=u+ln(a[i,j]);
end;
writeln('Среднее геометрическое',u);
max:=[1,1];
for i:=1 to n do begin
for j:=1 to m do
if (a[i,j]>max) then [i,j]:=max;
end;
writeln('Максимальное значение',max);
u:=max;
writeln('Полученная матрица');
for i:=1 to n do
for j:=1 to m do begin
writeln(a[i,j]);
writeln;
end;
end.

Ответить

Другие вопросы из категории

1)Написать программу, которая спрашивает имя пользователя, а потом здоровается. 2)Написать программу, которая выводит на экран перевёрнутый

текст.

3)Написать программу, которая определяет является ли слово палиндромом.

4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.

Помогите хотябы одну пожалуйста))Нужно до завтра!))

Доброго времени суток, помогите пожалуйста с решением данной задачи, необходим код, для Turbo Pascal. Сама задача звучит так:

С клавиатуры вводится 3 числа, если сумма первого и последнего больше 10, то вывести эту сумму, если произведение больше 20, но меньше 30 (20>>30) то вывести это произведение, в противном случае вывести все эти 3 числа.

Решите пожалуйста !!!! очень надо!!!!!

Читайте также

Задан одномерный массив А(N) (N<=60). На место минимального элемента массива записать сумму последних К элементов массива. Если А[1]>=0, то умножить

все элементы этого массива на квадрат минимального элемента данного вектора, а если А[1]<0, то умножить все элементы на квадрат максимального элемента вектора. Полученный массив распечатать. Значение К вводится пользователем.

ПАСКАЛЬ.1)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 1000.опишите на русском языке или на одном из

языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.

Написать программу на С++. Дана целочисленная квадратная матрица произвольной размерности. Сформировать одномерный массив, в который поместить элементы

двумерной матрицы, находящиеся над побочной диагонали; упорядочить их по возрастанию и найти их среднее арифметическое.

1. Задать двумерный массив (10х10) по формуле, так чтобы значения элементов совпадали с номерами столбцов в квадрате.

2. Задать двумерный массив (4х4) случайными значениями от 12 до 18 включительно. Вывести сумму значений элементов каждого столбца матрицы.
3. Задать двумерный массив (7х7) случайными значениями от 12 до 18 включительно. В каждом столбце матрицы найти количество элементов, значения которых меньше 14.
4. Задать двумерный массив (3х3) с клавиатуры, поменять значения элементов 1 столбца со вторым.
5. Найти минимальный элемент матрицы (5х5), заданной случайными значениями от 1 до 5 включительно, лежащие ниже главной диагонали.



Вы находитесь на странице вопроса "Дан целочисленный двумерный массив a(n,n) n=6. Найти среднее геометрическое элементов побочной диагонали и поставть его на место максимального элемента", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.