Program MASS-DV;
var
mas:array[1..5,1..5] of integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
readln(mas[i,j]);
for i:=1 to 5 do
for j:=1 to 5 do
writeln('[‘,i ,’,’,j’]’,mas[i,j]);
readln;
end.
var
mas:array[1..5,1..5] of integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
readln(mas[i,j]);
for i:=1 to 5 do
for j:=1 to 5 do
writeln('[‘,i ,’,’,j’]’,mas[i,j]);
readln;
end.
Двумерный массив:
ОтветитьУдалитьProgram-начало программы;
MASS-DV - название программы;
var - описание раздела переменных
mas:array[1..5,1..5] of integer - объявление двухмерного массива. Переменная mas объявляется массивом размерностью 5 на 5, элементы массива заданы целочисленным типом;
begin - начало программы.
for i:=1 to 5 do - цикл с параметром с использованием переменной i от 1 до 5;
for j:=1 to 5 do - цикл с параметром с использованием переменной j от 1 до 5;
readln(mas[i,j]) - ввод элемента массива с индексом i-стоки, j-столбца.
for i:=1 to 5 do - цикл с параметром с использованием переменной i от 1 до 5;
for j:=1 to 5 do - цикл с параметром с использованием переменной j от 1 до 5;
writeln('[‘,i ,’,’,j’]’,mas[i,j]) - вывод элемента массива с индексом i-стоки, j-столбца.
readln - при нажатии (вводе) любой клавиши клавиатуры программа завершается;
end - конец программы.
Описание программы выполнено верно, задание зачтено.
ОтветитьУдалить