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

@Матерн · Регистрация: 02.01.2013

Author24 — интернет-сервис помощи студентам

помогите решить! Формат входных данных

Сначала задано число N — количество элементов в массиве (1N35). Далее через пробел записаны N чисел — элементы массива.
Формат выходных данных
Необходимо вывести значение наибольшего элемента в массиве.

@Prog_S · 16.02.2014, 15:45

а проблема в чем?

Pascal

readln(n);
read(k);
max:=k;
for i:=2 to n do
begin 
read(k);
if (k>max) then max:=k;
end;

@Матерн · 16.02.2014, 16:19 **[ТС]**

Pascal

var a:array [1..1000] of integer;
n,i,max:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=1 to n do
if a[i]> max then max:=a[i];
writeln(max);
end.

я решила так, но почему-то не работает

@Prog_S · 16.02.2014, 18:54

объявить файлы еще надо . + закрыть.

Pascal

input,output:FILE ;
... 
close(input);
close(output);

@Матерн 0 / 0 / 0 Регистрация: 02.01.2013 Сообщений: 6
		1
	Вывести значение наибольшего элемента в массиве 16.02.2014, 14:38. Показов 1784. Ответов 3 Метки нет (Все метки) помогите решить! Формат входных данных Сначала задано число N — количество элементов в массиве (1N35). Далее через пробел записаны N чисел — элементы массива. Формат выходных данных Необходимо вывести значение наибольшего элемента в массиве. 0

	16.02.2014, 18:54