В заданном линейном массиве вставить после последнего нулевого элемента элемент, значение которого равно значе

@Liechka · Регистрация: 24.04.2014

Author24 — интернет-сервис помощи студентам

В заданном линейном массиве вставить после последнего нулевого элемента элемент, значение которого равно значению первого элемента массива. Нулевой элемент обязательно существует.
Входные данные:
Во входном потоке в первой строке задано натуральное число N - количество элементов целочисленного массива (N < 100)
Во второй строке перечислены через пробел значения элементов массива, по модулю не превышающие 30000.

Выходные данные:
В выходной поток вывести в строку через пробел целые числа.

Пример входного файла (input.txt):
5
1 2 0 3 0
Пример выходного файла (output.txt):
1 2 0 3 0 1
Помогити девушке ришить задачку вотакую
Спасибо за помощь

Pascal

var i,m,k,s,n:integer;
begin
readln(n);
for i:=1 to n do begin
read(k);
if((i=1) or (abs(k)>m))then begin m:=abs(k); s:=1; end
else if(abs(k)<m) then s:=s+1;
end;
write(s);
end.

подскажити правильно или нет

	12.05.2014, 21:45