Pascal Заполнить первый массив 20-ю случайными числами в пределах от 1 до 50 и вывести его.
Второй массив должен совпадать с первым, но те числа, которые больше своих левого и
правого соседа, требуется заменить нулём. Вывести второй масив в следующей строчке.
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.
Объяснение:
первый и последний элемент массива остаются без изменений, т.к. у них нет одновременно правого и левого соседа