Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Верна ли программка?

Автор: major 7.11.2005, 08:08

Задача:
"Написать программу:
Дан массив целых чисел. Записать его задом наперед."

Вот мой код. Проверьте его пожалуйста

Код

program zadacha;
uses crt;
var
a:array[1..100] of integer;
i,b,n:integer;
begin
clrscr;
randomize;
readln(n);
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i]);
end;
for i:=1 to n div 2 do
begin
b:=a[i];
a[i]:=a[n-i+1];
a[n-i+1]:=b;
end;
writeln;
for i:=1 to n do
write(a[i]);
readkey;
end.

Автор: SoWa 7.11.2005, 08:34

Мудрено, но похоже верно, я запутался.
Вот попроще:

Код


{n<100}
for i:=1 to n do
begin
readln(mas[i]);
writeln(mas[i]);
end;

for i:=n downto 1 do
begin
masO[100-n]:=mas[n];
end;

Погляди, поправь, может тебе поможет.

Автор: Snowy 7.11.2005, 09:26

major
Верно.
SoWa
Нет. У тебя в коде ошибки + второй массив, который нафиг не нужен.

Автор: St. Andrew 7.11.2005, 22:55

major, лучшие советчики по правильности программы - компилятор и заказчик smile

Последний, а в данном случае - это ты, оценивает программу по работоспособности при разных вводимых данных. Компилятор же проверяет орфографию и пунктуацию. smile

Автор: darkart 10.11.2005, 00:36

Всё верно!