Нахождение наибольшего элемента всего массива. (Паскаль)
5-9 класс
|
const n = 10;
var
a: array[1..n] of integer;
i, max: integer;
begin
for i := 1 to n do begin
a[i] := random(100);
write(a[i], ' ');
if(a[i] > max) then max := a[i];
end;
writeln;
writeln('Наибольший эл. массива: ', max);
end.
Другие вопросы из категории
Известна сторона квадрата А и радиус круга R.Какая из фигур имеет большую площадь?
умножения). 3. Составить программу для нахождения объёма параллелепипеда, если известна его длина, ширина, высота.
Читайте также
массива. (Паскаль, двумерные массивы )
самостоятельно запишите программу, в которой осуществляется формирование целочисленного массива a из 10 элементов значения которых лежат в диапозоне от 0 до 99,и поиск наибольшего элемента этого массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*