Rambler's Top100

Скачать программы    Все программы автора

Задание №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.{Конец программы}

Вверх

Белорусский рейтинг MyMinsk.com Сайты беларуси Регистр "ЗУБР" Каталог на TIGA.BY, а также  новости, работа, объявления, фото и многое другое Rambler's Top100 Белорусский каталог программ Faststart - рейтинг сайтов, каталог интернет ресурсов, счетчик посещаемос­ти Яндекс.Метрика
Hosted by uCoz