|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.12.2011, 22:47 | #1 |
Новичок
Джуниор
Регистрация: 17.12.2011
Сообщений: 6
|
Одномерный массив. Необходимо заменить последний положительный элемент на второй элемент массива
Задача: Дан массив целых чисел из N элементов. Необходимо заменить последний положительный элемент на второй элемент массива.
Формат входных данных В первой строке входного файла записано число N (2 <= N <= 1000). Во второй строке через пробел записаны N целых чисел, по модулю не превосходящих 10^5, - элементы массива. Для тех кому необходимо решить такую задачу. Могу поделиться своим решением. var a: array[1..1000] of longint; i, n: integer; begin assign (input,'input.txt'); assign (output,'output.txt'); reset (input); rewrite(output); readln (n); for i:=1 to n do begin read(a[i]); end; for i:=n downto 1 do if a[i]>0 then begin a[i]:=a[2]; break; end; for i:=1 to n do write (a[i],' '); close (input); close (output) end. |
19.12.2011, 16:44 | #2 |
Форумчанин
Регистрация: 05.09.2011
Сообщений: 109
|
Извлекаеш из файла массив и вод код замены последнего положительного элемента на второй элемент массива:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
задан массив размером N. вывести на печать каждый второй элемент массива | Сергей505 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 14.12.2011 17:37 |
Найти второй по величине элемент массива (за два прохода; за один проход) (на Паскале) | Мaрина | Помощь студентам | 2 | 26.09.2011 13:49 |
Массив 7х7 целого типа в каждом столбце поменять max элемент и элемент побочной диагонали | Sheport | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 20.06.2011 23:30 |
наименьший положительный элемент | sp.caster | Visual C++ | 1 | 07.05.2011 00:33 |
одномерные массивы(C++) - Найти максимальный положительный элемент и вычислить сумму элементов массива | Scarletred | Помощь студентам | 2 | 03.04.2010 03:08 |