Предмет: Информатика,
автор: DemonArthur
Дана матрица x={x(ij)},i=1,2,...,N,j=1,2,...,M. Вывести на печать элементы матрицы, сумма индексов которых равна заданной константе B.(ПАСКАЛЬ)
Ответы
Автор ответа:
0
Program A5;
Type mass=array [1..40] of integer;
Var i, j,n,s: integer;
Procedure horline;
bedin
read (n,m);
for i:=1 to n
for j:=1 to m do read(a[i,j]);
end;
Begin
horline;
read(B);
for i:=1 to n do
for j:=1 to m do
if i+j=B then
write (a[i,j], 'B');
end.
Type mass=array [1..40] of integer;
Var i, j,n,s: integer;
Procedure horline;
bedin
read (n,m);
for i:=1 to n
for j:=1 to m do read(a[i,j]);
end;
Begin
horline;
read(B);
for i:=1 to n do
for j:=1 to m do
if i+j=B then
write (a[i,j], 'B');
end.
Автор ответа:
0
спасибо огромное
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Алгебра,
автор: evgesha22862
Предмет: Русский язык,
автор: olgazvereva1977
Предмет: Обществознание,
автор: AssiaAnat
Предмет: Литература,
автор: Александра5518