Предмет: Информатика,
автор: bersh54
Сформировать массив из 20 вещественных чисел и поменять местами 5 и 10 элемент. Помогите пожалуйста . Решите для старой версии
Ответы
Автор ответа:
1
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.
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.
Похожие вопросы
Предмет: Алгебра,
автор: solonenkoksenia61
Предмет: Окружающий мир,
автор: Rolands125868
Предмет: Физика,
автор: dima8050
Предмет: Биология,
автор: valyaefremova1
Предмет: Биология,
автор: fkjcfj