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

Нужно решить используя Python


Нужно решить используя Python

Показать ответ
Ответ:
katyaklimovich
katyaklimovich
09.11.2021 08:10

Программы на языке Pascal.

Ввод элементов массива с клавиатуры:

program a;

const N=10;

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

   i, max: integer;

begin

 max:= -32768;

 for i:= 1 to N

   do begin

        readln(m[i]);

        if(m[i]>max)

          then max:= m[i];

      end;

 writeln(max);

end.

Заполнение массива случайными числами:

program a;

const N=10;

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

   i, max: integer;

begin

 randomize;

 max:= -32768;

 for i:= 1 to N

   do begin

        m[i]:= random(-32768, 32767);

        if(m[i]>max)

          then max:= m[i];

      end;

 writeln(max);

end.

0,0(0 оценок)
Ответ:
xXDeXTeRXx
xXDeXTeRXx
09.11.2021 08:10

Код написан на Pascal (только умоляю, будь аккуратен с отступами и табуляцией). Также прикрепил вывод компилятора (красным обвёл то, что нужно именно тебе, на остальное не обращай внимания). Также код есть в текстовом фале (его тоже прикрепил):

uses crt;

const n=10;

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

i, max, max_i : integer;

begin

   for i:= 1 to n do

   begin

       m[i]:= random(-10) + 10;

       write(m[i],' ');

   end;

   max:= m[1];

   max_i:= 1;

   for i:= 1 to n do

   begin

       if (max > m[i]) then

       begin

           max:= m[i];

           max_i:= i;

       end;

   end;

   writeln();

   writeln('max = m[',max_i,']');

   writeln('max = ',max);

end.


с информатикой! Массив задан следующим образом: Const N=10; Var m : array[1..N] of integer; Найти зн
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота