сервис вопросов и ответовДана вещественная матрица А, размерностью n*n. Найти сумму элементов матрицы, расположенных на главной диагонали.
10-11 класс|
|
Arluna
08 июня 2013 г., 0:27:22 (10 лет назад)
Madinka0555
08 июня 2013 г., 1:15:58 (10 лет назад)
var a: array [1..100, 1..100] of real; sum: real; i, j, n: integer;
begin
read(n);
sum := 0;
for i := 1 to n do
for j := 1 to n do
begin
read(a[i, j]);
if i = j then sum := sum + a[i, j];
end;
for i := 1 to n do
begin
for j := 1 to n do
write(a[i, j], ' ');
writeln;
end;
writeln(sum);
end.
Ответить
Другие вопросы из категории
Какой тип сетей глобальные или локальные будет использоваться для выполнения указанных ниже действий? А)документы на сетевой принтер, расположенный в
соседней комнате вашей организации;
Читайте также
Дана матрица размерностью nxn найти
Дана матрица размерностью nxn найти минимальный элемент среди элементов расположенных над главной диагональю матрицы. Найти квадрат разности среди арифметических значений элементов матрицы ,находящихся ниже и выше главной диагонали
Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
Элемент матрицы называется локальным минимумом, если
он строго меньше всех имеющихся у него соседей. Подсчитать количество локальных
минимумов заданной матрицы размером 10 на 10.
Найти сумму модулей элементов, расположенных выше
главной диагонали.
на языке С
Вы находитесь на странице вопроса "Дана вещественная матрица А, размерностью n*n. Найти сумму элементов матрицы, расположенных на главной диагонали.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.