Нужно написать программу на Паскале используя процедуру.

+ 0 -

AUTOZONE2003

24 июня 2013 г., 20:12:43 (10 лет назад)

const
  m = 20;

type
  V = array[1..m] of integer;

function MMax(a: V; n: integer): integer;
var
  i, mm: integer;
begin
  mm := -1000;
  i := n;
  while i <= m do
  begin
    if mm < a[i] then mm := a[i];
    i := i + n
  end;
  Result := mm
end;

var
  A: V;
  i, n: integer;

begin
  Randomize;
  write('Введите значение N: ');
  readln(n);
  writeln('Значения элементов массива:');
  for i := 1 to m do
  begin
    A[i] := Random(100) - 50;
    write(A[i]:4);
  end;
  writeln;
  writeln('Максимальный элемент, с номером, кратным ', n, ': ', MMax(A, n))
end.

Тестовое решение:

Введите значение N: 3
Значения элементов массива:
 -11 -47   0  43  -8  28  33 -43   1  47  45 -15   7 -49 -28  20  49 -46  44 -44
Максимальный элемент, с номером, кратным 3: 28

+ 0 -

Mr24Hamster

24 июня 2013 г., 21:47:00 (10 лет назад)

Комментарий удален

+ 0 -

Милена05

24 июня 2013 г., 23:42:26 (10 лет назад)

Комментарий удален