Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
Program N350
const k=4;
const n=3;
var a: array[1..k,1..n] of integer;
i,j,b: integer;
begin
writeln('Vvedite iznachalnye dannye (',k,'x',n,'): ');
for i:=1 to k do begin
for j:=1 to n do
read(a[i][j]);
readln;
end;
write('Poluchennye dannye: ');
for i:=1 to k do begin
for j:=1 to n do
b:=b+a[i][j];
write(b,' ');
b:=0;
end;
readln;
end.
const k=4;
const n=3;
var a: array[1..k,1..n] of integer;
i,j,b: integer;
begin
writeln('Vvedite iznachalnye dannye (',k,'x',n,'): ');
for i:=1 to k do begin
for j:=1 to n do
read(a[i][j]);
readln;
end;
write('Poluchennye dannye: ');
for i:=1 to k do begin
for j:=1 to n do
b:=b+a[i][j];
write(b,' ');
b:=0;
end;
readln;
end.