Question

Составьте программу увеличения значений всех элементов массива в 5 раз а затем уменьшения на 5

Answer 1

var
mas:array [1..20] of real ;
begin
for i:=1 to 20 do
mas[i]:=mas[i]*5;

writeln(mas[i]);
for i:=1 to 20 do
mas[i]:=mas[i]/5;
writeln(mas[i]);
end.