Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
BlockStriker1
30.10.2020 02:18 •
Информатика
Склавиатуры заполняется массив 10 на 10 поменять 1 и 10 строчку местами( в по скале с пояснениями, действительно до 15 05)
Показать ответ
Ответ:
miragrrr
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 оценок)
Популярные вопросы: Информатика
Odessey20011
25.09.2022 21:00
Дайте несколько возможных общих имён каждой группе объектов. выберите из них самое подходящее. ответ обоснуйте: а) буратино, мальвина, пьеро, артемон; в) 12 месяцев, санкт-питербург,...
Умницв
19.04.2022 14:22
Начертить блок-схему алгоритма. ввести последовательность вещественных чисел {aj},j=. hайти сумму чисел с четной целой частью, наибольшее из таких чисел, и номеp этого числа в последовательности....
МинаМина2003
30.09.2020 05:11
Установи соответствие с видом информации: количество соли в супе-...
lenusya007
21.10.2022 16:25
Написать программу в паскале...
maksim22771
25.01.2023 17:46
Найдите ошибки в программе для расчёта сумм чисел Запишите в тетрадях правильный вариант программы...
PolyaBarane
18.04.2020 20:06
Решить логическое выражение (-m*n 0)+(n m) если m =-2 n=3...
maksymr0906
18.04.2020 20:06
Ввести 7 чисел и посчитать количество чисел больше 0, и сумму чисел меньше или равных 0....
роман509
08.03.2021 00:36
Какие слова можно составить из слова автобаза...
Ira1214
08.03.2021 00:36
Образовать сравнительную и превосходную по группе односложных и многосложных: сommon,simple,severe,sincere...
kostenkoelizav
27.07.2021 01:29
Предмет покупальных возможножностей минимального размера оплаты труда(мрот)то есть что можно купить исходя из мрот...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.