Question

Pascal Заполнить первый массив 20-ю случайными числами в пределах от 1 до 50 и вывести его.
Второй массив должен совпадать с первым, но те числа, которые больше своих левого и
правого соседа, требуется заменить нулём. Вывести второй масив в следующей строчке.

Answer 1

program z;

var m1,m2:array [1..20] of integer;

i:integer;

begin

for i:=1 to 20 do

begin

m1[i]:=random(50)+1;

write(m1[i]:3)

end;

writeln;

for i:=1 to 20 do

begin

if (i <> 1) and (i<>20) and (m1[i]>m1[i-1]) and (m1[i]>m1[i+1]) then m2[i]:=0 else m2[i]:=m1[i];

write(m2[i]:3)

end

end.

Объяснение:

первый и последний элемент массива остаются без изменений, т.к. у них нет одновременно правого и левого соседа