Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
1 / 1 / 0
Регистрация: 19.01.2021
Сообщений: 12
1

Найти последний из положительных элементов массива

19.01.2021, 17:47. Просмотров 1367. Ответов 1
Метки нет (Все метки)

Найти последний из положительных элементов массива Y, содержащего N элементов, N≤20.

Вот код, что я сделал, если он не верен, исправьте, пожалуйста.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var 
 arr: array[1..100] of integer;
 n, i, ot: integer;
begin
 readln(n);
  for i:=1 to n do
   begin
    arr[i]:=random(20)+5;
    write(arr[i], ' ');
     if arr[i] > 0 then ot:=i;
   end;
 writeln;
 writeln('Последний положительный элемент: ', arr[ot]);
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.01.2021, 17:47
Ответы с готовыми решениями:

Найти последний из положительных элементов массива
Задание найти последний из положительных элементов массива Y(N) помогите кто может пожалуйста

Найти последний максимальный элемент среди положительных элементов одномерного массива вещественных чисел и его номер
Найти последний максимальный элемент среди положительных элементов одномерного массива...

Найти среднее арифметическое положительных элементов массива размернос положительных элементов массива размерностью 4х5
Найти среднее арифметическое положительных элементов массива размерностью 4х5.

Удалить из массива последний столбец,в котором равное количество положительных и отрицательных элементов
Добрый вечер, помогите, пожалуйста, составить программу: Удалить из массива последний столбец,в...

1
Модератор
8340 / 4110 / 2850
Регистрация: 17.08.2012
Сообщений: 13,111
19.01.2021, 20:30 2
Лучший ответ Сообщение было отмечено Incognito0202 как решение

Решение

Код верный, но содержит нелепости.

У Вас все элементы положительные, потому что random(20)+5 генерирует числа в диапазоне [5..24], и всегда будет получаться ot=N. Подкорректируйте генерацию массива, чтобы генерировались и отрицательные числа, например, так:
Pascal
8
    arr[i]:=-19+random(39);
Будут генерироваться числа из диапазона [-19..19].

После строки 4 добавьте строку randomize;, без неё в большинстве диалектов паскаля набор генерируемых чисел будет сменяться только один раз в минуту, а не при каждом запуске программы.

Не ошибка, но по заданию N≤20, а массив во второй строке Вы объявили аж в пять раз больший.

Добавлено через 14 минут
Да, и ещё. Вы не предусмотрели никаких действий на тот случай, если в массиве нет отрицательных элементов. Исправьте конец программы на
Pascal
13
14
15
 if ot > 0 then writeln('Последний положительный элемент: ', arr[ot])
 else writeln('Положительные элементы не найдены');
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2021, 20:30

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

Найти последний из положительных элементов массива
1. Найти последний, из положительных элементов массива AA, содержащего N элементов и его индекс. (...

Найти последний из положительных элементов, массива Y, содержащего N элементов
Найти последний из положительных элементов, массива Y, содержащего N элементов

Найти последний из положительных элементов, массива Y, содержащего N элементов
Найти последний из положительных элементов, массива Y, содержащего N элементов (Для доступа к...

Динамический массив: записать в 1-ый элемент массива сумму положительных элементов, а в последний - отрицательных
Массив A содержит 20 вещественных чисел. Используя динамическое выделение памяти под массив...

Найти в матрице последний столбец, в котором положительных элементов больше чем отрицательных
прошу помощи=) нужно найти в матрице mxn последний столбец в котором положительных элементов...

Если последний элемент массива отрицательный, то заменить его max значением среди всех положительных элементов
Ввести массив вещественных чисел В(n). Если последний элемент массива отрицательный, то заменить...


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

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

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