Составьте программу, которая заполняет массив а (1..10) случайными целыми числами в диапазоне от 1 до 10, а затем преобразовывает его, увеличивая элементы с нечетными значениями в три раза, а элементы с четными значениями заменяя на 0
More Questions From This User See All
Answers & Comments
mas:array[1..10] of byte;
i:byte;
begin
randomize;
writeln('Массив до обработки: ');
for i:=1 to 10 do
begin
mas[i]:=random(10)+1;
write(mas[i], ' ');
end;
writeln;
writeln('Массив после обработки: ');
for i:=1 to 10 do
begin
if mas[i] mod 2<>0 then mas[i]:=mas[i]*3 else mas[i]:=0;
write(mas[i], ' ');
end;
end.