Регистрация
Доминатр
20.03.2023 16:02
Информатика
Есть ответ 👍

ИНФОРМАТИКА. Нужно описать процедуры или доказать

Опишите процедуры нахождения символа К. Якоби и символа А.-М. Лежандра.

или (на приложенном скриншоте)

146
251
Посмотреть ответы 1

Ответы на вопрос:

linali20041
linali20041
4,7(66 оценок)

program summa;

  uses crt;

  const m=20;

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

        i,s: integer;

  begin

    for i: =1 to m do

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

    for i: =1 to m do

      s: =s+a[i];

    if s> 50 then writeln('сумма = ',s) else

      for i: = 1 to m do

          writeln('элемент массива №',i,' равен ',a[i]);

  end.

 

или

 

program summa;

  uses crt;

  const m=20;

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

        i,s: integer;

  begin

    for i: =1 to m do

      readln(a[i]);

clrscr;

    for i: =1 to m do

      s: =s+a[i];

    if s> 50 then writeln('сумма = ',s) else

      for i: = 1 to m do

          writeln('элемент массива №',i,' равен ',a[i]);

  end.

Популярно: Информатика