var mas: array[-1000..1000] of integer; i, max, n: integer; begin {ввод количества элементов массива} readln(n); {ввод массива и его вывод на экран} randomize; for i := 1 to n do begin mas[i] := 50 - random(100) - 1; write(mas[i]:5); if (i mod 10 = 0) then writeln; end; {поиск максимума} max := mas[1]; for i := 2 to n do if (mas[i] > max) then max := mas[i]; {нахождение номеров элементов массива} writeln; for i:=1 to n do if (mas[i] = max) then write(i,' '); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
