Дан массив А[10]. Найти МАХ элемент посреди элементов, стоящих на чётных

Дан массив А[10]. Отыскать МАХ элемент посреди частей, стоящих на чётных местах и отысканным значением заменить все элементы массива А, кратные 3. Перевоплощенный массив вывести на экран. Напишите программку на языке паскаль, спасибо!

Задать свой вопрос
1 ответ
Const
  CSize = 10;

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

begin
  randomize();
  var max := -(MaxInt);
  write('Исходный массив: ');
  for var i := 1 to CSize do
  begin
    m[i] := random(100) + 1;
    if (i mod 2 = 0) and (m[i] gt; max) then max := m[i];
    write(m[i], ' ')
  end;
  write(NewLine, 'Преобразованный массив: ');
  for var i := 1 to CSize do
  begin
    if m[i] mod 3 = 0 then m[i] := max;
    write(m[i], ' ')
  end
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт