В матрице найти и напечатать элементы диагоналей(Пожалуйста!)

@juliav · Регистрация: 28.01.2016

Author24 — интернет-сервис помощи студентам

В матрице найти и напечатать элементы диагоналей(Пожалуйста!)

@Puporev · 29.01.2016, 15:16

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,mx,imx,jmx:integer;
begin
randomize;
repeat
write('N=[2..',nmax,'] n=');
readln(n);
until n in [2..nmax];
writeln('Matrix:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
mx:=a[1,1];
imx:=1;
jmx:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]>mx then
 begin
  mx:=a[i,j];
  imx:=i;
  jmx:=j;
 end;
writeln('Maximum a[',imx,',',jmx,']=',mx);
writeln('Pobochnaya');
for i:=1 to n do
for j:=1 to n do
if i+j=imx+jmx then write(a[i,j]:4);
writeln;
writeln('Glavnaya');
if imx=jmx then
 begin
  for i:=1 to n do
  write(a[i,i]:4);
 end
else if jmx>imx then
 begin
  for i:=1 to n-(jmx-imx) do
  write(a[i,i+jmx-imx]:4);
 end
else
 begin
  for i:=(imx-jmx)+1 to n do
  write(a[i,i-(imx-jmx)]:4);
 end;
readln
end.

@juliav 0 / 0 / 0 Регистрация: 28.01.2016 Сообщений: 4
		1
	В матрице найти и напечатать элементы диагоналей(Пожалуйста!) 28.01.2016, 23:10. Показов 898. Ответов 1 Метки нет (Все метки) 0

	29.01.2016, 15:16

В матрице найти и напечатать элементы диагоналей(Пожалуйста!)

Решение