Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.