Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется |
Здравствуйте, гость ( Вход | Регистрация )
Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется |
Aug 24 2005, 14:35
Сообщение
#1
|
|
Мега постер Группа: Posters Сообщений: 1,337 Регистрация: 15.8.2005 Из: Москва Пользователь №: 45 |
Можете сдесь задавать свои вопросы по этой теме.
-------------------- http://www.fds-net.ru Филиал Дома Студента МГУ
|
|
|
Jan 18 2007, 13:34
Сообщение
#2
|
|
Супер постер Группа: Local moder Сообщений: 888 Регистрация: 23.10.2005 Из: п.Кугеси Пользователь №: 106 |
Цитата 2)дана последовательность из N чисел в диапозоне -3200 до 3200.(1<=N<=10000), Вывести эту последовательность в обратном порядке(развернуть массив). (входные данные: в первой строке ввести число N во второй строке ввести N чисел через один или несколько пробелов) (входные данные)10 (выходные данные) 1 2 3 4 5 6 7 8 9 10 10 9 8 7 6 5 4 3 2 1 Код program sandro;
uses crt; const max=10000; var c:array[1..max] of integer; n,i:integer; begin clrscr; repeat; write('vvedite kol-vo el-ov-->'); readln(n); if(n>max)then writeln('vvedeno N>MAX'); until(n<max); write('zapolnite massiv->'); for i:=1 to n do repeat; read(c[i]); until((c[i]>-3200) and (c[i]<3200)); writeln; write('vivod massiva v obratnom poriadke-->'); for i:=n downto 1 do write(c[i],' '); end. |
|
|
Текстовая версия | Сейчас: 11th May 2024 - 11:29 |