Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Сформировать множество Y=(X1ÈX2) Ç (X1\X3), из которого выделить подмножество нечетных чисел https://www.cyberforum.ru/ turbo-pascal/ thread800988.html
МНОЖЕСТВА 2. Даны 3 множества Х1, Х2, Х3, содержащие целые числа из диапазона 1..100. Мощность каждого множества равна 10. Сформировать новое множество Y=(X1ÈX2) Ç (X1\X3), из которого...
Множества. Вычислите значения выражения Turbo Pascal
МНОЖЕСТВА 1. Вычислите значения выражения +. Правило форума 5.16. Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
Turbo Pascal Составить программу, организующую работу с пользованием в диалоговом режиме
Составить программу, организующую работу с пользованием в диалоговом режиме: программа запрашивает слово с определенным количеством букв "a", проверяет правильность ввода такого слова и выводит...
Turbo Pascal Как сделать игру Как сделать игру в текстовом режиме??? https://www.cyberforum.ru/ turbo-pascal/ thread800959.html
Turbo Pascal Удаления элементов одномерного массива A(N) https://www.cyberforum.ru/ turbo-pascal/ thread800949.html
Составьте программу удаления элементов одномерного массива A(N), равных последнему элементу этого массива
Внести единую упорядоченность в последовательность Turbo Pascal
Даны действительные числа с1,...,сp, d1,...,dq (c1≤с2≤...≤сp, d1≤d2≤...≤dq). Внести единую упорядоченность в с1,...,сp, d1,...,dq, получив f1, f2,...,fp+q, такие, что...
Ввести, транспонировать и вывести матрицу заданного размера (параметр процедурного типа) Turbo Pascal
С помощью процедуры обработки матрицы с параметром процедурного типа ввести, транспонировать и вывести матрицу заданного размера. (если можно то лучше с помощью модулей)
Turbo Pascal Округление числа без использования функций Здравствуйте! Помогите, пожалуйста, округлить число до целых без использования функций. Очень срочно! Заранее спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread800846.html
Turbo Pascal Результат игр по футболу хранятся в массиве https://www.cyberforum.ru/ turbo-pascal/ thread800836.html
Результат игр по футболу хранятся в массиве. Каждые три последовательных элемента массива содержат соответственно номер игры, количество забитых и количество пропущенных мячей. Определите и выведите...
Turbo Pascal Комментирование лабораторной Знакомая попросила меня разобраться с лаюораторной работой на языке pascal. Дорогие участники cyberforum помогите закомментировать данный листинг, сам я изучаю программирование, но не язык pascal,... https://www.cyberforum.ru/ turbo-pascal/ thread800822.html
233 / 223 / 146
Регистрация: 19.03.2012
Сообщений: 369
05.03.2013, 12:57 0

Удаление последнего отрицательного элемента

05.03.2013, 12:57. Просмотров 1313. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено KatrinVev как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Program mas1;
Const n=20;
Type mas = array[1..n] of integer;
 
Var a:mas;
    i,x:integer;
    
BEGIN
  x:=0;
  for i:=1 to n do
    begin
      a[i]:=random(50)-20;
      write(a[i]:4);
      if a[i]<0 then 
        x:=i;
    end;
  writeln;
  for i:=1 to x-1 do
      write(a[i]:4);
  for i:=x to n-1 do
    begin
      a[i]:=a[i+1];
      write(a[i]:4);
    end;
END.
28 22 -20 4 -11 10 -2 12 24 -18 6 29 23 21 -14 -4 18 16 -9 12
28 22 -20 4 -11 10 -2 12 24 -18 6 29 23 21 -14 -4 18 16 12


Вернуться к обсуждению:
Удаление последнего отрицательного элемента
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2013, 12:57
Готовые ответы и решения:

Найти номер последнего отрицательного элемента
2)найти номер последнего отрицательного элемента.

Найти номер последнего отрицательного элемента массива
1. Дан одномерный массив, задающийся генератором случайных чисел. Найти номер последнего...

В целочисленном массиве найти номер последнего отрицательного элемента
В целочисленном массиве найти номер последнего отрицательного элемента. Удалить этот элемент из...

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

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