Форум программистов, компьютерный форум, киберфорум
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
0

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

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


Целый день ломаю голову,никак не получается..
Вот я что то пытался сделать (ерунда конечно, но все же...старался)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a,b: array [1..100] of integer;
i,n,k,s:integer;
begin
write('N= '); read(n);
for i:=1 to n do read(a[i]);
s:=0;k:=0;
for i:=1 to n do
if a[i]<0 then s:=s+1;
writeln('s=',s);
 
while s>=1 do
begin
for i:=1 to n do
if a[i]<0 then begin k:=k+1; b[k]:=a[i]; s:=s-1; end
else begin k:=k+1; b[k]:=a[i]; end;
end;
 
for i:=1 to k do write(b[k],' ');
end.
Помогите, пожалуйста.

Вернуться к обсуждению:
Составить программу удаления последнего отрицательного элемента одномерного массива A(N)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.02.2012, 18:47
Готовые ответы и решения:

Составить программу для удаления из массива первого отрицательного элемента
Составить программу для удаления из массива первого отрицательного элемента. Массив заполнить...

Найти номер последнего четного и отрицательного элемента одномерного массива
Найти номер последнего четного и отрицательного элемента одномерного массива, то вычислить...

Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента одномерного
Как найти сумму целых частей элементов массива, расположенных после последнего отрицательного...

Написать программу нахождения первого отрицательного элемента одномерного числового массива
пропустил тему не могу сообразить... есле кто то может написать программу, помогите! Буду...

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