Rambler's Top100

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

Задание № 16

Дан массив A(m,n).Используя подпрограмму, которая обрабатывает строку (столбец)

получить:1.Массив B(n), в котором B(i)-сумма элементов i-ой строки массива A(m,n).

2.Массив B(m), в котором B(i)-min элементов i-го столбца массива A(m,n).

 

program Mass;

var

a:array[1..100,1..100] of integer;

b:array[1..100]of integer;

i,s,m,n,sum:integer;

begin

write('Введите границы m,n=');

readln(m,n);

write('Заполните массив=');

for i:=1 to m do

for s:=1 to n do

read (a[i,s]);

for i:=1 to m do

for s:=1 to n do

begin

sum:=sum+a[i,s];

b[i]:=sum-b[i-1];

end;

for i:=1 to m do write(b[i]);

end.

Вверх

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