Вводится массив, состоящий из целых чисел. Найти наибольшее среди них

@roma070201 · Регистрация: 08.10.2014

Вводится массив, состоящий из целых чисел. Найти наибольшее среди них.

Входные данные
Сначала задано число N — количество элементов в массиве (1<=N<=35). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел.

Выходные данные
Необходимо вывести значение наибольшего элемента в массиве.

Примеры
входные данные
3
1 2 3

выходные данные
3

@ighor · 03.12.2014, 18:05

Pascal

var
a: array [1..100] of integer;
i,  n ,  max : integer;
begin
writeln('rozmer');
readln(n);
randomize ;
if (( n>=1) and (n<=35)) then 
for i:=1 to n do begin
a[i]:=random(90)-45 ;
write(a[i]:3);
end;
writeln;
max:=a[1] ;
for i:=2 to 100 do begin 
if a[i]>max then max:=a[i] ;
end;
writeln(max);
end.

@roma070201 0 / 0 / 0 Регистрация: 08.10.2014 Сообщений: 44
		1
	Вводится массив, состоящий из целых чисел. Найти наибольшее среди них 03.12.2014, 16:26. Показов 8205. Ответов 1 Метки нет (Все метки) Вводится массив, состоящий из целых чисел. Найти наибольшее среди них. Входные данные Сначала задано число N — количество элементов в массиве (1<=N<=35). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел. Выходные данные Необходимо вывести значение наибольшего элемента в массиве. Примеры входные данные 3 1 2 3 выходные данные 3 0

Опции темы

Вводится массив, состоящий из целых чисел. Найти наибольшее среди них

Решение