ПОЖАЛУЙСТА , ПОМОГИТЕ , ДВУМЕРНЫЕ МАССИВЫ НА ПАСКАЛЕ
50 БАЛЛОВ
Matrix8. Дана матрица размера M × N и целое число K (1 ≤ K ≤ N). Вывести элементы K-го столбца данной матрицы.
50 БАЛЛОВ
Matrix8. Дана матрица размера M × N и целое число K (1 ≤ K ≤ N). Вывести элементы K-го столбца данной матрицы.
More Questions From This User See All
Answers & Comments
Ответ:
Program zadanie;
const M=9; N=16;
var i,j,K:integer;
a:array[1..M,1..N] of integer;
begin
for i:=1 to M do begin
for j:=1 to N do begin
a[i,j]:=random(9)+1;
write(a[i,j]:3);
end;
writeln();
end;
readln(K);
writeln('Элементы ',K,'-ого столбца: ');
for i:=1 to M do begin
writeln(a[i,K]);
end;
end.