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