Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
3 / 3 / 3
Регистрация: 03.10.2012
Сообщений: 23
1

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

03.10.2012, 15:58. Просмотров 2044. Ответов 3
Метки нет (Все метки)


Дан целочисленный вектор A(n). Найти минимальное значение положительных элементов, расположенных правее первого элемента, равного нулю.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.10.2012, 15:58
Ответы с готовыми решениями:

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

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

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

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.
3
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,002
Записей в блоге: 1
03.10.2012, 16:27 2
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
26
27
28
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.
Тестируй...
1
3 / 3 / 3
Регистрация: 03.10.2012
Сообщений: 23
04.10.2012, 10:01  [ТС] 3
спасибо большое!!!
 Комментарий модератора 
Правило форума 3.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
3 / 3 / 3
Регистрация: 03.10.2012
Сообщений: 23
10.10.2012, 20:50  [ТС] 4
Artem7, ошибку на 8 строке показывает
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2012, 20:50

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

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

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

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

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