Изменить порядок следования элементов массива на обратный Помогите, пожалуйста, составить программу в паскале!!!
Изменить порядок следования элементов массива на обратный Помогите, пожалуйста, составить программу в паскале!!!
Гость
Ответ(ы) на вопрос:
ГостьА нету желания уточнить? Тебе на ассемблере, брейнфаке или как?
Гостьvar
i,j:integer;
a,b:array[1..10]of integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln;
j:=1;
writeln('Измененный массив: ');
for i:=10 downto 1 do
begin
b[j]:=a[i];
write(b[j],' ');
j:=j+1;
end;
end.
Не нашли ответ?
Похожие вопросы