Дана квадратная матрица а размером nxn. элементы вводятся с клавиатуры. найти сумму элементов, кратных 3, находящихся ниже главной диагонали! написать программу на паскале!
Const n=10; var a,b:array[1..n] of integer; i,si,smax:integer; begin Writeln('Введите парами длины катетов ',n,' треугольников'); smax:=0; for i:=1 to n do begin Read(a[i],b[i]); si:=a[i]*b[i]; { пополам разделим потом максимальное } if si>smax then smax:=si end; Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':'); for i:=1 to n do if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]); Writeln end.
Пример работы Введите парами длины катетов 10 треугольников 7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8 Треугольник(и) с максимальной площадью, равной 90: №2: 18x10 №6: 15x12 №8: 9x20
Const n=10; var a,b:array[1..n] of integer; i,si,smax:integer; begin Writeln('Введите парами длины катетов ',n,' треугольников'); smax:=0; for i:=1 to n do begin Read(a[i],b[i]); si:=a[i]*b[i]; { пополам разделим потом максимальное } if si>smax then smax:=si end; Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':'); for i:=1 to n do if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]); Writeln end.
Пример работы Введите парами длины катетов 10 треугольников 7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8 Треугольник(и) с максимальной площадью, равной 90: №2: 18x10 №6: 15x12 №8: 9x20
uses crt;
const Max=100;
var Matrix:array[1..Max,1..Max] of integer;
i,j,Sum1,Sum2,m:integer;
begin
clrscr;
randomize;
repeat
writeln('Введите размерность квадратной матрицы ');
readln(m);
until m in [1..Max];
for i:=1 to m do
for j:=1 to m do
Matrix[i,j]:=random(25);//при необходимости замените на ручной ввод
for i:=1 to m do
begin
for j:=1 to m do
write(Matrix[i,j]:4);
writeln;
end;
Sum1:=0; Sum2:=0;
for i:=1 to m do
begin
Sum1:=Sum1+Matrix[i,i];
Sum2:=Sum2+Matrix[m-i+1,i];
end;
writeln('Сумма элементов главной диагонали:',Sum1);
writeln('Сумма элементов побочной диагонали:',Sum2);
readln;
end.
Объяснение: