Yurok9872
?>

колективної роботи з документами

Информатика

Ответы

mail5
Через почту , если хотите можете через почту
Некрасов Валентина1097

Код написан на 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; Найти зн
mmi15

Программы на языке 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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

колективної роботи з документами
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Мунировна
avdeevo
preida-2
Melsan19914239
gulnaradjhumabaeva123
dilbaryan76
krasnobaevdj3
Vrpeshka
andreich97
Денис1619
potapin
keykov35
Nataliyaof
catmos
sveta300856729