Question

Составьте программу, которая заполняет массив а (1..10) случайными целыми числами в диапазоне от 1 до 10, а затем преобразовывает его, увеличивая элементы с нечетными значениями в три раза, а элементы с четными значениями заменяя на 0

Answer 1

var
  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.

Answer 2

спасибо большое!)