Вывести все элементы массива, кратные заданному числу, и заменить все отрицательные элементы на 0 — Pascal(Паскаль)-CF

Дан одномерный массив целых чисел. Вывести все элементы массива кратные A. Все отрицательные элементы заменить 0. Размерность массива ввести с клавиатуры. Значения элементов массива задавать с помощью генератора случайных чисел в диапазоне от -100 до +100.

Программа

const
  m = 200;
var
  x: array[1..m] of integer;
  a, n, i, k: integer;
begin
  randomize;
  repeat
    write('Enter array size [1..', m, ']: ');
    readln(n)
  until (n >= 1) and (n <= m);
  writeln('Source array:');
  for i := 1 to n do
    begin
      x[i] := 100 - random(201);
      write(x[i]:4)
    end;
  writeln;
  write('A = ');
  readln(a);
  k := 0;
  writeln('Elements of array, multiples of ', a, ':');
  for i := 1 to n do
    if x[i] mod a = 0 then
      begin
        write(x[i]:4);
        inc(k)
      end;
  if k > 0 then writeln else writeln('Not found');
  writeln('Modified array:');
  for i := 1 to n do
    begin
      if x[i] < 0 then x[i] := 0;
      write(x[i]:4)
    end;
  readln
end.

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