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

Marquis

2 / 2 / 2

Регистрация: 28.02.2012

Сообщений: 24

28.02.2012, 20:13 [ТС]

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

28.02.2012, 20:13. Просмотров 1446. Ответов 2

Метки (Все метки)

Ответ

Большое спасибо!
Но все таки сделал по-своему через 2-ой массив.

Pascal

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)

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

28.02.2012, 20:13

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

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

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

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

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

Наверх