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

ОЧЕНЬ уровень как в Паскале решить????


ОЧЕНЬ уровень как в Паскале решить????

Показать ответ
Ответ:
даринасид85
даринасид85
18.01.2022 06:22

const n = 5;
          m = 5;
var
  a: array[1..n, 1..m] of integer;
  i, j, tmp, s_s: integer;
  magic: boolean;
begin
  magic := true;
  for i := 1 to n do begin
    for j := 1 to m do begin
      a[i, j] := random(50);
      write(a[i, j]:4);
      if(i = 1) then s_s := s_s + a[i, j];
      if(j mod m = 0) then writeln;
    end;
  end;

  for i := 2 to n do begin
    tmp := 0;
    for j := 1 to m do begin
      tmp := tmp + a[i, j];
    end;
    if(tmp <> s_s) then begin
      magic := false;
      break;
    end;
  end;


  for i := 1 to n do begin
    tmp := 0;
    for j := 1 to m do begin
      tmp := tmp + a[j, i];
    end;
    if(tmp <> s_s) then begin
      magic := false;
      break;
    end;
  end;
  if(magic) then writeln('Матрица является магическим квадратом') else
    writeln('Матрица не является магическим квадратом');
end.

0,0(0 оценок)
Ответ:
JANNETA2010
JANNETA2010
22.01.2021 23:05

Program TwoSums;

Uses Crt;

var a:array[1..10] of integer;

       i:integer;  

       s1,s2:longint 

 

 begin

      clrscr;

      write('Исходный массив:');

      s1:=0;s2:=0;   

      for i:=1 to 10 do

            begin  

 

                a[i]:=random(101)-50;

                 write(a[i]:3);  

                if (i mod 2)<>0 then s1:=s1+a[i]

                        else s2:=s2+a[i];    

             end;

 

      writeln;

 

      writeln('Сумма нечётных элементов массива:',s1);

       writeln('Сумма чётных элементов массива:',s2);

       if (s1=s2) then writeln('Суммы равны');

      if (s1>s2) then writeln('Сумма нечётных элементов массива больше !')

               else writeln(' Сумма чётных элементов массива больше !'); 

    readkey;

 

end.

 

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