Написать программу, находящую максимальный элемент массива
10-11 класс
|
const n=10;
Var a:array[1..n] of integer;
i,max:integer;
Begin
Randomize;
For i:=1 to n do
Begin
A[i]:=Random(20);
Writeln(a[i],' ');
end;
For i:=1 to n do
begin
If A[i]>max then
max:=a[i];
end;
Writeln('Максимальный элемент: ',max);
end.
Другие вопросы из категории
"выключено" или "мигает"). Какое наименьшее количество лампочек должно находиться на табло, чтобы с его помощью можно было передать 200 различных сигналов?
S=2x^1+3x^2+4x^3+5x^4+...+20x^19
PASCALABC.
а) Хост-компьютер.
б) Сервер.
в) Клиент.
г) Домен.
Необходимо объяснить свой ответ. Дать обоснование, почему выбран именно этот вариант ответа.
Читайте также
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
минимальный и максимальный элемент массива и его индекс .
Дано массив А[1..n]. Сделать программу которая выводит те элементы массива? индексы которых являются степени двойки
Желательно с обьяснением строк
необходимо поменять местами: а) первый и последний элементы массива; б) второй и минимальный элементы массива; в) третий и максимальный элементы массива; Вывести на экран исходный и результирующий массивы.