В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
nick313
nick313
08.12.2020 13:17 •  Информатика

Дан двухмерный массив целых чисел(4*5).заполнить его случайными целыми числами и вывести на экран в виде таблицы. поменять местами последний и первый столбцы матрицы и найти сумму всех элементов, находящихся по ее периметру.вывести на экран полученную матрицу.

Показать ответ
Ответ:
amozgaleva96
amozgaleva96
03.10.2020 05:40
У всё возможно не рационально решал но должно всё правельно быть(проверял)

uses crt;
var A:array[1..4,1..5] of integer;
i,j,n,p:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
A[i,j]:=random(9);
write(A[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to 4 do
begin
n:=A[i,1];
A[i,1]:=A[i,5];
A[i,5]:=n;
end;
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
write(A[i,j],' ');
end;
writeln;
end;
for i:=1 to 5 do
begin
p:=p+A[1,i];
p:=p+A[4,i];
end;
for i:=2 to 3 do
begin
p:=p+A[i,1];
p:=p+A[i,5];
end;
writeln(p);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота