Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Интеграл Помогите решить пожалуйста, т.к. в интегралах не шарю. https://www.cyberforum.ru/ turbo-pascal/ thread662796.html	Найти периметр N-угольника, заданного координатами вершин Turbo Pascal Найти периметр N-угольника, заданного координатами вершин на плоскасти {(,Xi;Yi)},(i=1,…<N)
Turbo Pascal Табулирование функции y=arccos(1/(x+1)) на отрезке [-0.5;0;0.5] с шагом 0.1 https://www.cyberforum.ru/ turbo-pascal/ thread662707.html Помогите составить программу табулирования функции y=arcsin(1/(x в корне +3)) на отрезке с шагом 0.02	Turbo Pascal Заменить все вхождения символа «пробел» на два символа «пробел» https://www.cyberforum.ru/ turbo-pascal/ thread662695.html Дана строка символов. Заменить все вхождения символа «пробел» на два символа «пробел».
Turbo Pascal Строка: Организовать ввод строковых значений до тех пор, пока пользователь не введет слово "хватит". Организовать ввод строковых значений до тех пор, пока пользователь не введет слово "хватит". При этом выводить длину введенных строк.	Turbo Pascal Оптимальное разбитие строки на слова Условие: Дана строка, состоящая из слов, разделенных пробелами. Составить программу обработки данной строки, выводящую на экран каждое слово на новой строке. Например: Ввод: привет всем участникам этого форума ура я рад вам privet vsem ucxastnikam etogo foruma ura j rad vam https://www.cyberforum.ru/ turbo-pascal/ thread662620.html
Turbo Pascal Ввести текст, состоящий не менее чем из 12 слов. Из данного текста выделить все слова, в которых есть символ "Е" Ввести текст, состоящий не менее чем из 12 слов. Из данного текста выделить все слова, в которых есть символ "Е". Кто знает, как это сделать, помогите, плиз https://www.cyberforum.ru/ turbo-pascal/ thread662602.html	Turbo Pascal Дано натуральное n Вычислить: Пожалуйста, помогите вычислить: Дано натуральное n Вычислить: Уранение во влажении. Заранее спасибо
Turbo Pascal Найти среди последовательности чисел первое число, большее заданного А https://www.cyberforum.ru/ turbo-pascal/ thread662585.html Найти среди последовательности чисел 0,3; 0,31,3; 0,31,3*2,3;… первое число, большее заданного А.	Turbo Pascal Сформировать последовательность, в которой каждое число, записываемое двумя соседними цифрами, делится на 19 или 23 Сформировать последовательность, состоящую не менее чем из n цифр, такую, что каждое двухзначное число, записываемое двумя соседними цифрами (в том порядке, в каком они написаны), должно делиться на 19 или 23. Последовательность должна начинаться на заданную цифру. https://www.cyberforum.ru/ turbo-pascal/ thread662584.html
Turbo Pascal Найти сумму всех n - значных чисел кратных К Найти сумму всех n-значных чисел, кратных k (1 ≤ п ≤ 4).	Turbo Pascal Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счисления https://www.cyberforum.ru/ turbo-pascal/ thread662581.html Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счисления.

CodeR

Фрилансер

3418 / 2815 / 3000

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

Сообщений: 8,587

Записей в блоге: 1

03.10.2012, 16:27

Найти минимальное значение положительных элементов, расположенных правее первого элемента, равного нулю - Turbo Pascal - Ответ 3516067

03.10.2012, 16:27. Показов 2515. Ответов 3

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

Ответ

Pascal

Var A:array[1..100] of integer;
    i,n,j,imin:integer;
Begin 
    write('Введите n: ');readln(n);
    j:=0;
    For i:=1 to n do
    Begin
      A[i]:=random(30)-15;
      write(A[i]:4);
      if (A[i]=0)and(j=0) then j:=i;//находим первый нулевой
    End;
    imin:=0;
    writeln;
    if (j>0)and(j<>n) then
    Begin
     For i:=j to n do
      if (A[i]>0) then break;//находим первый положительный после нуля
     if A[i]>0 then imin:=i;
     if imin>0 then
      For i:=j to n do
       if (A[i]<A[imin])and(A[i]>0) then imin:=i;
     if imin>0 then writeln('Минимальный элемент: ',A[imin],' его индекс ',imin)
      else writeln('Нету положительного после первого нулевого');
    End
    else
      writeln('Нету нулевого элемента или он последний в массиве');
    readln;
End.

Тестируй...

Вернуться к обсуждению:
Найти минимальное значение положительных элементов, расположенных правее первого элемента, равного нулю Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

03.10.2012, 16:27

Готовые ответы и решения:

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

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

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

Найти номер последнего минимального элемента среди элементов, меньших t и лежащих правее первого элемента, равного s
Дан целочисленный вектор A(n). Найти номер последнего минимального элемента среди элементов,...

	03.10.2012, 16:27

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

03.10.2012, 16:27

Помогаю со студенческими работами здесь

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

Найти номер первого максимального значения среди элементов, меньших a и расположенных правее первого элемента, кратного трем
Помогите плз! Найти номер первого максимального значения среди элементов, меньших a и...

Найти сумму модулей элементов, расположенных после первого элемента, равного 0
помогите пожалуйста в одномерном массиве состоящнм из n уелых элементов вычеслить а) минимальный...

Найти сумму модулей элементов массива, расположенных после первого элемента, равного 0
Доброго времени суток, Уважаемые формучане! Необходима помощь. Одномерные массивы В...

Наверх