Нахождение максимального и минимального элемента массива (Из сгенерированного из 10000 целых чисел, используя random(k))
5-9 класс
|
const
n = 10000;
var
a: array[1..n] of integer;
i, mx, mn: integer;
begin
Randomize;
mx := -7777777; mn := 7777777;
for i := 1 to n do
begin
a[i] := Random(20001) - 10000;
if mx < a[i] then mx := a[i]
else if mn > a[i] then mn := a[i]
end;
Writeln('Min=', mn, ', max=', mx)
end.
Тестовое решение:
Min=-10000, max=9999
Другие вопросы из категории
алг сумма квадратов (цел S)
рез S
нач нат n
S := 0
для n от 1 до 3
нц
S := S + n*n
кц
кон
Читайте также
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве
Формат входных данных
Первая строка входного файла содержит целое число N (1 <= N <= 100000). В следующей строке задаются N положительных целых чисел, каждое из которых не превышает 100000.
Формат выходных данных
Выведите ответ к задаче.
массива А в порядке их следования в массиве А, массив С- отрицательные элементы массива А в порядке, обратному их следованию в массиве А.