Сформировать массив из 20 вещественных чисел и поменять местами 5 и 10 элемент. Помогите пожалуйста . Решите для старой версии
Answers & Comments
katya51279
Var a: array[1..20] of Real; i: Integer; begin for i:=1 to 20 do begin a[i]:=random(20); writeln('Число: ',a[i]); end; a[5]:=a[10]; a[10]:=a[5]; for i:=1 to 20 do writeln(a[i]); end.
Answers & Comments
i: Integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(20);
writeln('Число: ',a[i]);
end;
a[5]:=a[10];
a[10]:=a[5];
for i:=1 to 20 do writeln(a[i]);
end.