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

Задан двумерный массив, имеющий n строк и m столбцов. определите, является ли строка номер n1 равной строке номер n2. если да - вывести yes и сумму элементов строки n1. если нет - вывести no и сумму элементов строки n2. формат ввода: n m (n< =10, m< =12) a[1,1] a[1,2] a[1,m] a[2,1] a[2,2] a[2,m] a[n,1] a[n,2] a[n,m] n1 n2 пример ввода: 3 4 1 2 3 4 1 2 3 4 1 2 4 4 1 2 пример ввода: 3 4 1 2 3 4 1 2 3 5 1 2 3 4 1 2 формат вывода: yes sumn1 или no sumn2 пример вывода: yes 10 пример вывода: no 11 sumn1 - сумма всех элементов строки n1 sumn2 - сумма всех элементов строки n2

Показать ответ
Ответ:
ученик11111023531
ученик11111023531
20.08.2020 01:57
Var a:array[1..10,1..12] of integer;
n,m,n1,n2,i,j,s1,s2:integer;
b:boolean;

begin
readln(n,m);
for i:=1 to n do
 for j:=1 to m do read(a[i,j]);
readln(n1,n2);

s1:=0; s2:=0; b:=true;
for j:=1 to m do
 begin
 s1:=s1+a[n1,j]; s2:=s2+a[n2,j];
 if a[n1,j]<>a[n2,j] then b:=false;
 end;

if b then write('YES, s1 = ',s1) else write('NO, s2 = ',s2);
end.

Пример:
3 4
1 2 3 4
2 3 1 4
1 2 3 4
1 3
YES, s1 = 10
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота