Rambler's Top100

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

Задание № 19

Дан прямоугольный массив А( m,n). Получить линейный массив B ( m), в котором B ( I)-сумма элементов I-й строки массива A(m,n). ( I изменяется от1 до m).

Составить схему алгоритма, написать программу и комментарии к программе.

 

Program prog;

var

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

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

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

begin

write('Введите pазмеpность массива=');

read(m,n);

writeln('Запомнить массив');

for i:=1 to m do

for k:=1 to n do

read (a [i,k]);

for i:=1 to m do

for k:=1 to n do

begin

S:=S+a[i,n];

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

end;

write('Сумма элементов каждой стpоки');

for i:=1 to m do

writeln (b[i]);

end.

Вверх

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