Question

Массив m(8) заполнен с клавиатуры целыми числами в диапазоне от -15 до +10. числа меньшие -5 увеличить в 3 раза, а числа, большие 7 в 5 раз. исходный и новый массивы вывести в виде матриц.

Answer 1

Var
a:array[1..8] of integer;
b:array[1..8] of integer;
i:integer;
begin
write('Заполните массив - ');
for i:=1 to 8 do
 read(a[i]);
for i:=1 to 8
 do
 begin
  if a[i]<(-5) then b[i]:=a[i]*3
   else
    begin
     if a[i]>7 then b[i]:=a[i]*5
      else b[i]:=a[i];
    end;
 end;
for i:=1 to 8 do
 write(a[i],' ');
writeln();
for i:=1 to 8 do
 write(b[i],' ');
end.