Дан одномерный массив целых чисел. Вывести все элементы массива кратные 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.