profile="http://gmpg.org/xfn/11"> Дан массив а(10), заполненный датчиком случайных чисел. Найти наибольший положительный элемент массива и увеличить его в 3 раза. Паскаль. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Дан массив а(10), заполненный датчиком случайных чисел. Найти наибольший положительный элемент массива и увеличить его в 3 раза. Паскаль.

Дан массив а(10), заполненный датчиком случайных чисел. Найти наибольший положительный элемент массива и увеличить его в 3 раза.

Задача «Дан массив а(10), заполненный датчиком случайных чисел. Найти наибольший положительный элемент массива и увеличить его в 3 раза. Паскаль» и ее решение:

program Task_Max3;

  {Дан массив а(10), заполненный датчиком случайных чисел.
  Найти наибольший положительный элемент массива и увеличить его в 3 раза.}
const
  n = 10;
var
  a: array[1..n] of integer;
  i_MaxNum, i: integer;
begin
  Randomize();
  i_MaxNum := not (MAXINT);
  for i := 1 to n do
  begin
    a[i] := Random(20) + 1;
    if i_MaxNum < a[i] then
    begin
      i_MaxNum := a[i];
    end;
  end;

  //Вывод на экран
  Writeln('Максимальный элемент массива: ', i_MaxNum, ', увеличеный в 3 раза: ',
    i_MaxNum * 3);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
Найти наибольший положительный элемент массива и увеличить его в 3 раза
Найти наибольший положительный элемент массива и увеличить его в 3 раза, паскаль.

Дополнительные материалы:
Найти минимальный элемент массива, паскаль.
Найти минимум и максимум в массиве — Pascal (Паскаль).
Найти минимальное число в массиве, паскаль.
Минимальное значение, которое может иметь число типа Integer в Паскале.
Найти минимальный элемент массива и его порядковый номер. Паскаль (Pascal).
Минимальный элемент массива, что это?

Комментарии запрещены.