Скачать программы Все программы автораЗадание №6Дан прямоугольный массив A[m;n].Посчитать сумму: 1.Элементов, у которых номер строки равен номеру столбца; 2.Элементов, у которых сумма номера строки и сумма номера столбца равна (n+1); 3.Элементов, у которых модуль разности номера строки и номера столбца равен 1.
Program Vera;{Начало программы} var {Создание переменных} a:array[1..100,1..100] of integer; x,y,m,n:integer; sum1,sum2,sum3,max:integer; begin {Начало программы} sum1:=0;sum2:=0;sum3:=0; writeln('введите размеры массива A[m,n]: '); read(m,n); writeln('введите элементы массива: '); for x:=1 to m do{Организация цикла} begin {Начало цикла} for y:=1 to n do{Организация цикла} begin {Начало цикла} write('A(',x,',',y,'): '); read(a[x,y]); end;{Конец цикла} end;{Конец цикла} {закончен ввод массива} if m>n then max:=n {Определение максимальной высоты или ширины} else max:=m; for x:=1 to max do sum1:=sum1+a[x,x]; {Организация цикла} or x:=1 to m do{Организация цикла} begin {Начало цикла} for y:=1 to n do begin{Начало цикла} if x+y=n+1 then sum2:=sum2+a[x,y];{Определение суммы элементов с x+y=n+1} if abs(x-y)=1 then sum3:=sum3+a[x,y];{Определение элементов с |x-y|=1} end;{Конец цикла} end;{Конец цикла} {Вывод результатов} writeln('сумма элементов по диагонали: ',sum1); writeln('сумма элементов, у которых x+y=n+1: ',sum2); writeln('сумма элементов, у которых |x-y|=1: ',sum3); end.{Конец программы} |