Question

Задать массив m(7) случайными числами от 12 до 73. Утроить элементы массива, стоящие на нечетных местах. Утроить чётные элементы массива, стоящие на нечетных местах

Answer 1

var
  m: array [1..7] of integer;
  i: byte;
begin
randomize;
writeln('Исходный массив.');
for i := 1 to 7 do
begin
  m[i] := random(61)+12;
  write(m[i],' ');
end;
writeln; writeln;
writeln('Утроили стоящие на нечетных местах.');
for i := 1 to 7 do
begin
  if i mod 2 <> 0 then m[i] := m[i]*3;
  write(m[i],' ');
end;
writeln; writeln;
writeln('Утроили четные на нечетных местах.');
for i := 1 to 7 do
begin
  if ((i mod 2 <> 0) and (m[i] mod 2 = 0)) then m[i] := m[i]*3;
  write(m[i],' ');
end;
end.