Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Удалить из файла точку с максимальным расстоянием от начала координат https://www.cyberforum.ru/ turbo-pascal/ thread454559.html
Компонентами типизированного файла являются записи, определяющие координаты точек на плоскости. Удалить из файла точку с максимальным расстоянием от начала координат. program zad1; uses crt; ...
Turbo Pascal Вывести на экран все пары городов с расстоянием менее 100 км между ними
Помогите пожалуйста с решение задачи на массивы. неужто сложно напечатать задания руками? а еще для каждого задания желательно заводить свою тему
Выяснить в какой координатной четверти находится треугольник, созданный прямой, заданой уравнением y=ax+b и осями координат Turbo Pascal
Выяснить в какой координатной четверти находится треугольник, созданный прямой, заданой уравнением y=ax+b и осями координат. Подскажите пожалуйста в чем я ошибся:) var a,b:real; begin...
Turbo Pascal Раскрасить робота ромбовая голова(зеленая),прямоугольное туловище (синего цвета),квадратные глаза(черный )ромбовидный рот (красный), треугольный нос (желтый) program 1; uses crt,graph; var gd,gm:integer; begin... https://www.cyberforum.ru/ turbo-pascal/ thread454531.html
Turbo Pascal Задачка на геометрическую прогрессию. https://www.cyberforum.ru/ turbo-pascal/ thread454529.html
Для геометрической прогрессии,первый член которой {a}_{1} , а знаменатель g=5/2 , найти первый член последовательности превышающий 100.
Turbo Pascal Составить программу определяющую в каком из двух чисел больше четных цифр
Ребята помогите пожалуйста с задачей на подпрограммы!!!!! "Составить программу определяющую в каком из двух чисел больше четных чисел" ЗАРАНЕЕ СПАСИБО ВСЕМ КТО МНЕ ПОМОЖЕТ!!!!!!!!
Turbo Pascal Удалить из массива элемент, равный заданному числу
удалить из массива элемент, равный заданному числу
Turbo Pascal Вычислить количество четных цифр в многозначном числе (с помощью процедур) Задача: Вычислить количество четных цифр в многозначном числе (с помощью процедур) https://www.cyberforum.ru/ turbo-pascal/ thread454499.html
Turbo Pascal Ошибка в решении уравнения https://www.cyberforum.ru/ turbo-pascal/ thread454492.html
Подскажите пожалуйста в чем ошибка при решении, выдает не результат, а "INF" Вот код программы: Program lrl; Uses Crt; var x, z1, z2, b: real; var y: extended; Begin ClrScr; write('Vvedite...
Turbo Pascal Составить программу для сортировки массива методом «пузырька» Составить программу для сортировки методом «пузырька» массива Z(12) по возрастанию и массива В(10) методом сплошного просмотра по убыванию его элементов. https://www.cyberforum.ru/ turbo-pascal/ thread454433.html
2 / 2 / 2
Регистрация: 28.02.2012
Сообщений: 24
28.02.2012, 20:13  [ТС] 0

Составить программу удаления последнего отрицательного элемента одномерного массива A(N)

28.02.2012, 20:13. Просмотров 1446. Ответов 2
Метки (Все метки)

Ответ


Большое спасибо!
Но все таки сделал по-своему через 2-ой массив.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var a,b:array [1..100] of integer;
i,n,k,t,s:integer;
 
begin
s:=0; k:=0; t:=0;
write('N= '); read(n);
for i:=1 to n do read(a[i]);
 
for i:=1 to n do
if a[i]<0 then begin k:=a[i]; t:=i; end;
writeln('k=',k); writeln('t=',t); for i:=1 to n do write(a[i],' ');
writeln;
for i:=1 to n do
if (a[i]<>k) or (i<>t) then
begin s:=s+1; b[s]:=a[i]; end;
for i:=1 to s do write(b[i],' ')
end.


Вернуться к обсуждению:
Составить программу удаления последнего отрицательного элемента одномерного массива A(N)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.02.2012, 20:13

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Составить программу удаления элементов целочисленного одномерного массива
Составьте программу удаления элементов целочисленного одномерного массива A(N),кратких первому...

Составить программу удаления элементов целочисленного одномерного массива A(N), кратных первому элементу
Здравствуйте, уважаемые! Очень нужна ваша помощь. Нужно составить программу удаления элементов...

Составить программу удаления максимального элемента массива
1. Cоставить программу удаления максимального элемента массива Буду Благодарен!

Составить программу для нахождения первого отрицательного элемента массива, имеющего четный номер
составить программу для нахождения первого отрицательного элемента массива, имеющего четный номер

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.