F(M,N) вычислить сумму квадратов диагональных элементов матрицы(M=N)
10-11 класс
|
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,sum:integer;
begin
clrscr;
writeln('Введите ',n*n,' матрицу:');
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
clrscr;
writeln('Матрица:');
sum:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]:4);
if j=i then s:=sum+sqr(a[i,j]);
end;
writeln;
end;
write('Сумма квадратов элементов диагонали=',s);
readln
end.
Program Nim17;
uses crt;
const n=10;
var
f:array[1..n,1..n] of integer;
sum1,sum2,i,j:integer;
begin
Randomize;
{ввод и вывод матрицы}
writeln('Mатрица: перезагрузка');
sum1:=0;
sum2:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
f[i,j]:= Random(100)-50;
write(f[i,j]:5);
if i=j then sum1:=sum1+f[i,j]*f[i,j];
if i=n-j then sum2:=sum2+f[i,j]*f[i,j];
end;
writeln;
end;
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln('Cумма элементов диагонали северо-запад - юго-восток ',sum1);
writeln('Cумма элементов диагонали юго-запад - северо-восток ',sum2);
writeln('Cумма всех диагональных элементов ',sum1+sum2);
end.
Другие вопросы из категории
"выключено" или "мигает"). Какое наименьшее количество лампочек должно находиться на табло, чтобы с его помощью можно было передать 200 различных сигналов?
S=2x^1+3x^2+4x^3+5x^4+...+20x^19
PASCALABC.
а) Хост-компьютер.
б) Сервер.
в) Клиент.
г) Домен.
Необходимо объяснить свой ответ. Дать обоснование, почему выбран именно этот вариант ответа.
Читайте также
1. Найти сумму (произведение) элементов 1-й строки (столбца) массива Т (6,4).
2. Заполните матрицу, элементами которой является произведение номеров строк и столбцов соответствующих элементов.
3. Вычислить сумму и произведения элементов матрицы Z (4,6).
4. Вычислить сумму и произведение элементов матрицы А(5,5).
Язык программирования - Pascal.
все элементы этого массива на квадрат минимального элемента данного вектора, а если А[1]<0, то умножить все элементы на квадрат максимального элемента вектора. Полученный массив распечатать. Значение К вводится пользователем.
В массив В, содержащим 20 элементов, вычислить сумму квадратов всех положительных элементов.