Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Получить сумму тех чисел данной последовательности, которые нечётны и отрицательны https://www.cyberforum.ru/ turbo-pascal/ thread593044.html
Даны целые числа а1,…,а50. Получить сумму тех чисел данной последова-тельности, которые нечётны и отрицательны.
Двумерные массивы. Определить для каждого дня недели суммарное время работы Turbo Pascal
В некоторой компании регистрируется: число часов, отработанных каждым работником в каждый день недели. Известен список работников и почасовая ставка каждого работника. определить для каждого дня...
Turbo Pascal Создание модулей. В модуле описать функции нахождения минимального и максимального значения
даны целые числа а,в,с. Создать модуль который найдет мах и мин, и используя этот модуль найти функцию f=max(a+c,a+b)+min(a+b,b+c)/1+max(a+bc,4.15)
Turbo Pascal Дана строка символов. Заменить все вхождения символа '{' на 'begin' , а каждое вхождение символа '}' - на 'end' дана строка символов. Заменить все вхождения символа '{' на 'begin' , а каждое вхождение символа '}' - на 'end' блок-схему плиз! https://www.cyberforum.ru/ turbo-pascal/ thread593027.html
Turbo Pascal Вывести одинаковые символы данных строк, использовать множественный тип https://www.cyberforum.ru/ turbo-pascal/ thread593020.html
ввести 2 строки символов. вывести одинаковые символы этих строк. При решении задачи обязательно использовать множественный тип. блок-схему пжлста, если не сложно
Найти телефон работника по его фамилии и инициалам Turbo Pascal
Дан файл, который содержит номера телефонов работников учреждения. Указывается фамилия работника, его инициалы и номер телефона. Найти телефон работника по его фамилии и инициалам. Помогите...
Turbo Pascal Получить действительную матрицу, первая и вторая строки задаются формулой, а каждая следующая строка есть сумма двух предыдущих
Получить действительную матрицу ;i,j=1,…,7, первая строка которой задаётся формулой Aij=2j+3 (j=1,…,7), вторая строка задаётся формулой Aij=j-3/(2+1/j) (j=1,…,7), а каждая следующая строка есть сумма...
Turbo Pascal Вычислить количество положительных, отрицательных и нулевых элементов матрицы Обработать матрицу, элементами которой являются случайные значение функции f(x)=x; x∈. Вывести на печать исходную матрицу и полученные результаты. Дана целочисленная матрица D(11;11). Вычислить... https://www.cyberforum.ru/ turbo-pascal/ thread592953.html
Turbo Pascal задача. обработка одномерных масивов https://www.cyberforum.ru/ turbo-pascal/ thread592948.html
фирма распологает следующей информацией: наименоване товара, стоимость его единицы, количество единиц(кг, шт, упаковок) в партии, название фирмы поставщика, поставившего данную партию товара. данные...
Turbo Pascal В алфавитном порядке напечатать все строчные русские гласные буквы текста Ребят, помогите пожалуйста. Нужен ПОЛНЫЙ КОД. Все мозги проел, не знаю как делать... Вот задачи: 1. Напечатать текст, за которым следует точка. В алфавитном порядке напечатать все строчные... https://www.cyberforum.ru/ turbo-pascal/ thread592947.html
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,992
Записей в блоге: 1
01.06.2012, 09:25 0

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

01.06.2012, 09:25. Просмотров 2880. Ответов 2
Метки (Все метки)

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

Решение


Цитата Сообщение от JanKlod Посмотреть сообщение
1. Дан одномерный массив, задающийся генератором случайных чисел. Найти номер последнего отрицательного элемента массива.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var A:array[1..100] of integer;
    i,k,n:integer;
Begin
    write('Введите размер массива: ');readln(n);
    k:=0;
    For i:=1 to n do
     Begin
      A[i]:=Random(11)-5;
      write(A[i]:3);
      if A[i]<0 then k:=i;
     End;
    writeln;
    if k<>0 then writeln('Последний отрицательный элемент: ',A[k])
     else writeln('Отрицательных нету');
End.


Вернуться к обсуждению:
Найти номер последнего отрицательного элемента массива
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2012, 09:25

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

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

В произвольном массиве найти номер первого положительного и последнего отрицательного элемента и все элементы расположенные между ними
Подскажите условие для вывода на экран в массиве первый положительный элемент и последний...

Найти номер наименьшего отрицательного элемента массива.
Дан массив из n элементов. Найти номер наименьшего отрицательного элемента массива.

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

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