Тема. Массивы. Организация ввода вывода.
Задание:
Переписать элементы целочисленного массива С(30) в обратном порядке (новый массив не использовать).
Исходный код программы для Delphi 7:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var mas:array[1..30] of integer;
i,t:integer;
begin
randomize;
for i := 1 to 30 do
begin
mas[i]:=round(random*10);
write('Mas[',i,']','=',mas[i],' ');
end;
Writeln('Izmenennui massiv:');
for i := 1 to 15 do
begin
t:=mas[i];
mas[i]:=mas[30-i+1];
mas[30-i+1]:=t;
end;
for i := 1 to 30 do
begin
write('Mas[',i,']','=',mas[i],' ');
end;
Readln;
end.
Блок схема:
|