Найти номер первого положительного элемента массива в паскале?
Найти номер первого положительного элемента массива в паскале.
Найти максимальный элемент массива X(10)?
Найти максимальный элемент массива X(10).
Помогите написать программу в паскале пожалуйста.
ПОМОГИТЕ?
ПОМОГИТЕ!
Дан одномерный массив размерностью 40 элементов, изменяющийся от - 100 до 100.
Определить максимальный элемент массива и его номер без учёта максимального.
Это нужно в паскале.
Найти максимальный элемент и его номер?
Найти максимальный элемент и его номер.
В Pascal.
Тема массивы ; ).
Написать программу на Паскале : "найти номер первого максимального элемента во вводимой с клавиатуры последовательности чисел?
Написать программу на Паскале : "найти номер первого максимального элемента во вводимой с клавиатуры последовательности чисел.
Условие окончания ввода – ввод числа 0.
".
Паскаль?
Паскаль!
Заполните массив случайными числами и найти минимальный и максимальный элементы массива и их номера.
Пример : Массив : 1 2 3 4 5 Минимальный элемент : A[1] = 1 Максимальный элемент : A[5] = 5.
В одномерном массиве найти максимальный элемент заменить на 0 , и вывести массив на экран?
В одномерном массиве найти максимальный элемент заменить на 0 , и вывести массив на экран.
На паскале.
Найти место положение и значение максимального элемента массива 7 на 7?
Найти место положение и значение максимального элемента массива 7 на 7.
Написать на паскале.
Написать в программу в паскале (сразу все) - найти максимальный и минимальный элемент в массиве?
Написать в программу в паскале (сразу все) - найти максимальный и минимальный элемент в массиве.
Найти номера минимального и максимального элементов массива, в Паскале?
Найти номера минимального и максимального элементов массива, в Паскале.
На странице вопроса Найти максимальный элемент и его номер в последовательности в паскале? из категории Информатика вы найдете ответ для уровня учащихся 10 - 11 классов. Если полученный ответ не устраивает и нужно расшить круг поиска, используйте удобную поисковую систему сайта. Можно также ознакомиться с похожими вопросами и ответами других пользователей в этой же категории или создать новый вопрос. Возможно, вам будет полезной информация, оставленная пользователями в комментариях, где можно обсудить тему с помощью обратной связи.
Var
k, i : integer ;
x, max : real ; begin for k : = 1 to 10 do begin if k mod2 < ; > ; 0 then x : = k / (1 + k) else x : = sqr(k) / (1 + sqr(k)) ; if x> ; max then begin max : = x ; i : = k ; end ; end ;
writeln(max, ' N : ', i) ;
end.