М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Reginmdms
Reginmdms
22.08.2020 11:14 •  Информатика

Задан двумерный массив, имеющий 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

👇
Ответ:
valenok18XD
valenok18XD
22.08.2020
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
4,5(31 оценок)
Открыть все ответы
Ответ:
Vlada434
Vlada434
22.08.2020
Procedure TForm1.Button1Click(Sender: TObject);
begin
    If FontDialog.Execute then
        RichEdit1.SelAttributes.Assign(FontDialog1.Font);
        RichEdit1.SetFocus;
    End;
end;

делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
 Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
  RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится
4,7(10 оценок)
Ответ:
katyasvk
katyasvk
22.08.2020
Var
  s,s1:string;
  a,b:array[1..100]of integer;
  i,n,x,k:integer;
    begin
      readln(s);
      readln(s1);
      n:=1;
       if length(s)>length(s1) then
        x:=length(s)
        else x:=length(s1);
         for i:=1 to length(s) do
         begin
          val(copy(s,i,1),k,n);
          a[i+x-length(s)]:=k;
         end;
           for i:=1 to length(s1) do
         begin
          val(copy(s1,i,1),k,n);
          b[i+x-length(s1)]:=k;
         end;
      for i:=1 to length(s) do
        a[i]:=a[i]+b[i];
        for i:=length(s) downto 2 do
        begin
         a[i-1]:=a[i-1]+a[i]div 10;
         a[i]:=a[i]mod 10;
        end;
      for i:=1 to length(s) do
       write(a[i]);
        
        
      end.
         
4,6(81 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ