сервис вопросов и ответовВ заданном одномерном массиве определить номер последнего отрицательного элемента.паскаль
10-11 класс|
|
V2l3a4d5a
10 нояб. 2013 г., 0:03:15 (10 лет назад)
Valentiniwl
10 нояб. 2013 г., 2:34:02 (10 лет назад)
var a:array[1..10000] of longint;
i,n,last:longint;
begin
{Считываем массив}
read(n);
for i:=1 to n do read(a[i]);
last := 0;
for i := 1 to n do
if a[i] < 0 then last := i;
if last = 0 then
write('Отрицательных нету')
else
write('Последний отрицательный - ', i);
end.
Krutievat
10 нояб. 2013 г., 5:28:49 (10 лет назад)
const
n = 20;
var
x: array[1..n] of integer;
i: integer;
begin
Randomize;
Writeln('Элементы массива');
i := n;
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4);
end;
Writeln;
while (i >= 1) and (x[i] >= 0) do i := i - 1;
if i > 0 then
Writeln('Последний отрицательный элемент x[', i, ']=', x[i])
else
Writeln('Нет отрицательных элементов')
end.
Тестовое решение:
Элементы массива
5 -9 -32 -48 33 2 -41 24 31 -31 -48 -24 -17 45 -41 -23 -1 38 45 14
Последний отрицательный элемент x[17]=-1
Ответить
Другие вопросы из категории
Какова глубина рекурсии в следующей подпрограмме при n=123? function P(n:longint): longint; begin if n < 10 then P:= n
else P:= P(n div 10) * n mod 10;
end;
1) 2; 2) 3; 3) 1; 4) 10;
ПРОГРАМА ПОМОГИТЕ
Є N кілограм вантажу, який необхідно перевезти контейнерами місткістю 3 і 5 кілограм.
Яка мінімальна кількість контейнерів знадобиться, якщо контейнери не можна заповнювати частково?
Вхідні дані:
Одне дане натуральне число N, яке не перевищує 2000000000.
Вихідні дані:
Виведіть одне число - мінімальну кількість контейнерів, або NO, якщо вантаж вказаним чином перевезти не можна.
Читайте также
1.В произвольно заданном одномерном массиве ( случайные значения из отрезка -6 до 11 ) из 6 элементов, определить количество отрицательных, нулевых и
положитльных элементов.
2.
Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.
Ребят, помогите! Тема: одномерные массивы. Две задачи:1) Написать прог
Ребят, помогите! Тема: одномерные массивы. Две задачи:
1) Написать программу, которая из заданного одномерного массива размерности N находит сумму только тех элементов, значения которых больше некоторого значения S.
S=5; Массив: 0,4 5,6 -2 10,1
2) При поступлении в ВУЗ абитуриенты, получившие "Двойку" на первом экзамене, ко второму не допускаются. В массиве A[N] записаны оценки экзаменующихся, полученных на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену!
Заранее благодарю!
С.Р.О.Ч.Н.О. Составить процедуру, вичисляющую значение TRUE, если в первом из двух заданных одномерных массивов количество
отрицательных элементов окажется больше, чем во втором, и значение FALSE в противном случае. Использовать такую процедуру для массивов: R = (0; 0.005; -0.02; -87.5; 50) W = (45; 721.5; 8.63; -76.97; 3)
C.Р.О.Ч.Н.О.
Написать программу и блок-схему для решения следующей задачи. В двумерном массиве, состоящем из целочисленных элементов, поменять местами: в каждом
столбце первый и последний отрицательные элементы;
(Паскаль)
Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом
массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию
Вы находитесь на странице вопроса "В заданном одномерном массиве определить номер последнего отрицательного элемента.паскаль", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.