Вопрос по информатике:
Нужна помощь с Pascal
Дан двумерный массив от 1 до 3 ввести элементы массива с клавиатуры и обнулить диагональ матрицы
- 06.08.2018 09:10
- Информатика
- remove_red_eye 832
- thumb_up 13
Ответы и объяснения 1
Program Project2;
{$APPTYPE CONSOLE}
var a:array [1..3,1..3] of integer; i,n:Integer;
begin
for i:=1 to 3 do
for n:=1 to 3 do
read(a[i,n]);
for i:=1 to 3 do
for n:=1 to 3 do
if i=n then
a[i,n]:=0;
for i:=1 to 3 do
begin
Writeln;
for n:=1 to 3 do
write(a[i,n]:3);
end;
readln;
readln;
end.
- 07.08.2018 06:59
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.