Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
romak3104Ромчук
30.03.2020 01:05 •
Информатика
Склавиатуры заполняется массив 10 на 10 поменять 1 и 10 строчку местами( в по скале с пояснениями, действительно до 15 05)
Показать ответ
Ответ:
Солі
08.10.2020 07:18
Const N = 10; M = 10;
var arr: array[1..N,1..M] of byte;
i,j,a,b,buff: byte;
begin
for i:=1 to N do begin
for j:=1 to M do begin
read(arr[i,j]);
end;
end;
for j:=1 to M do begin
buff := arr[1,j];
arr[1,j] := arr[10,j];
arr[10,j] := buff;
end;
writeln('');
for i:=1 to N do begin
for j:=1 to M do
write(arr[i,j]:3);
writeln;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zlpa
08.05.2022 17:34
с заданием по информатике. Задание нужно сделать в Libre office. Задания А Б В...
korostin2004
07.03.2021 16:53
Книга содержит 145 страниц. На каждой странице 37 строк. В каждой строке 57 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ кодируется одним...
aadfgjrv
22.03.2020 10:01
Составьте программу вывода на экран всех натуральных чисел от 1 до n в обратном порядке...
hadmatter
22.03.2020 10:01
1)доступ к файлу teach ru находящемуся на сервере school.org, осуществляется по протоколу ftp.фрагменты адреса файла закодированны буквами от а до ж. запишите последовательность...
228ie228
22.03.2020 10:01
Одна программа, работающая с форматом tiff, не смогла прочитать файл этого же формата, созданный другой программой. в чём причина?...
БеднаяЕва
28.09.2020 17:14
Установи последовательность построения информационной модели. установить взаимосвязи определить цель создания модели выбрать форму и средство представления модели выделить существенные...
AlexxxM1
29.06.2020 16:11
Подсчитать мощность алфавита, с которого написан текст из 800 символов, имеющто информационный объем 700 байт...
sanek48rus1
20.02.2023 10:27
Преобразуй трёхчлен 10⋅a⋅b+b2+25⋅a2 в квадрат двучлена....
Виталя236
20.02.2023 10:27
Интервалы от до вниз...
amekekes
20.02.2023 10:27
Составить слова из 2 столиков 1)bed. A) east 2)Snow. B) flower 3)sun. C) land 4)school d) side 5)grass. E) room 6)back f) forest 7)north. G) pack 8)rail. H) drop 9)country. I) way...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var arr: array[1..N,1..M] of byte;
i,j,a,b,buff: byte;
begin
for i:=1 to N do begin
for j:=1 to M do begin
read(arr[i,j]);
end;
end;
for j:=1 to M do begin
buff := arr[1,j];
arr[1,j] := arr[10,j];
arr[10,j] := buff;
end;
writeln('');
for i:=1 to N do begin
for j:=1 to M do
write(arr[i,j]:3);
writeln;
end;
end.