Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Найти число, полученное при прочтении числа N справа налево https://www.cyberforum.ru/ pascalabc/ thread1097965.html
Дано целое число. Используя операции деления нацело и взятия остатка от деления, найти число, полученное при прочтении числа N справа налево.
Pascal ABC Дано целое число. найти произведение N!=1*2*...*N
Дано целое число. найти произведение N!=1*2*...*N. Чтобы избежать целочисленного переполнения, вычислить это произведение с помощью вещественной переменной и вывести его как вещественное число.
Pascal ABC Даны четыре целых числа, одно из которых отличное от трех других, равных между собой. определите порядковый номер числа, отличного от остальных даны четыре целых числа, одно из которых отличное от трех других, равных между собой. определите порядковый номер числа, отличного от остальных. https://www.cyberforum.ru/ pascalabc/ thread1097960.html Pascal ABC Найти скалярное произведение векторов https://www.cyberforum.ru/ pascalabc/ thread1097933.html
Найти скалярное произведение векторов вектор а=(a1,a2,..an) и вектор b=(b1,b2,..bn) Добавлено через 2 часа 37 минут Помогите срочно!
Pascal ABC Определить, можно ли квадрат со стороной a вписать в окружность заданного радиуса R?
Определить, можно ли квадрат со стороной a вписать в окружность заданного радиуса R? Точность сравнения вещественных величин 0.001. Входные данные: Во входном потоке задано два вещественных числа - радиус окружности R и сторона квадрата a. Значение всех исходных величин не превышает 30000. Выходные данные: В выходной поток вывести 'YES' или 'NO'. Пример входного файла (input.txt): 2.5...
Pascal ABC Упорядочить по возрастанию параллель побочной диагонали расположенной под диагональю в паскале: Дан двумерный массив a, размером (nхn). Упорядочить по возрастанию параллель побочной диагонали расположенной под диагональю. https://www.cyberforum.ru/ pascalabc/ thread1097724.html
Pascal ABC Найти произведение двух наибольших из трех введенных с клавиатуры чисел Все ли верно? И где ошибки? Спасибо заранее. program n1; var a,b,c,d,e: real; begin writeln('введите числа '); read(a, b, c); if a-b>=0 then d:=a else d:=b; if a-c>=0 then e:=a https://www.cyberforum.ru/ pascalabc/ thread1097690.html Подсчитаем количество цифр в целом числе Pascal ABC
12.Подсчитаем количество цифр в целом числе. 13.Найдите максимум из трех чисел. 14.Вывести на экран таблицу умножения. 15.С помощью символа «*» нарисуйте на экране прямоугольник заданного размера m×n. 16.В матрице размером n×m поменяйте местами первую и последнюю строки. Результат выведите на экран.
Pascal ABC Вывести сумму всех четных натуральных чисел, меньших данного N https://www.cyberforum.ru/ pascalabc/ thread1097557.html
10.Вывести сумму всех четных натуральных чисел, меньших данного N. проверка: var a,n,s: integer; begin write('Введите число n'); readln (n); s:=0; for a:=1 to n do if (a<n) and (a mod 2=0) then s:=s+a; write(s);
Pascal ABC Вывести на экран все строчные буквы латинского алфавита в обратном порядке https://www.cyberforum.ru/ pascalabc/ thread1097547.html
1.Вывести на экран минимальное значение двух чисел. 2.Для последовательности целых чисел a,b,c все четных числа разделите на 2. Нечетные оставьте без изменений. 3.Вычислить сумму первых N натуральных чисел. проверить: var n,s,i: integer; begin write('введите n:'); readln (n); s:=0; for i:=1 to n do s:=s+i;
Для последовательности целых чисел a,b,c. Найдите разность между максимальным и минимальным значениями Pascal ABC
Для последовательности целых чисел a,b,c. Найдите разность между максимальным и минимальным значениями. / Pascal ABC
Pascal ABC Вычислить значение Z https://www.cyberforum.ru/ pascalabc/ thread1097483.html
Помогите пожалуйста написать программу
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.02.2014, 17:12 0

Дан массив размера N. Найти номер его первого локального минимума - Pascal ABC - Ответ 5789118

16.02.2014, 17:12. Показов 6747. Ответов 1
Метки (Все метки)

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

Решение

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
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,k:integer;
begin
randomize;
repeat
write('Размер массива от 3 до ',nmax,' n=');
read(n);
until n in [3..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
writeln;
i:=2;
k:=0;
while (i<n)and(k=0) do
if (a[i]<a[i-1])and(a[i]<a[i+1]) then k:=i
else i:=i+1;
if k=0 then write('Локальных минимумов нет')
else write('Первый локальный минимум=',a[k],' его номер=',k);
end.


Вернуться к обсуждению:
Дан массив размера N. Найти номер его первого локального минимума Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.02.2014, 17:12
Готовые ответы и решения:

Дан массив размера N. Найти номер его первого локального минимума
Дан массив размера N. Найти номер его первого локального минимума (Локальный минимум - это...

Найти номер первого локального минимума в массиве
Дан массив размера N. Найти номер его первого локального минимума.(локальный минимум- это элемент,...

Найти номер первого локального минимума массива
var a:array of reaL; i,n,min:integer; begin write('Razmernost'' massiva: '); readln(n); for...

Дан целочисленный массив А размера 10. Вывести номер первого и последнего из тех его элементов А[i]
Дан целочисленный массив А размера 10. Вывести номер первого и последнего из тех его элементов А,...

1
16.02.2014, 17:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.02.2014, 17:12
Помогаю со студенческими работами здесь

Дан массив размера N. Найти номер его первого локального минимума
15. Дан массив размера N. Найти номер его первого локального минимума. Локальный минимум — это...

Дан массив размера N. Найти номер его первого локального минимума
Дан массив размера N. Найти номер его первого локального минимума (локальный минимум — это элемент,...

Дан массив размера N . найти номер его последнего локального максимума
помогите пожалуйста решить задачи по паскалю: 1. дан массив размера N, все элементы которого ,...

Найти номер его первого локального минимума в массиве
Дан массив размера N. Найти номер его первого локального минимума (элемент, который меньше любого...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru