Нахождение максимального элемента в массиве

@xeaton · Регистрация: 09.06.2012

написать в паскале Нахождение максимального элемента в массиве

@ЛетающийЕнот · 29.06.2012, 14:23

Pascal

. . .
max:=arr[1];
for i:=1 to n do
 if arr[i]>max then
  max:=arr[i];
. . .

@xeaton · 29.06.2012, 14:26 **[ТС]**

А можно если не затруднит полностью написать ?

@Pahanuch · 29.06.2012, 14:31

Pascal

Program prog;
uses crt;
const N=10;
var i,max: integer;
mas: array [1..N] of integer;
Begin
randomize;
max:=mas[1];
For i:=1 to N do
Begin
mas[i]:=Random(100);
write(mas[i],' ');
If (mas[i]>max) then max:=mas[i];
End;
writeln;
Writeln('Максимальный элемент массива = ', max);
End.

@ЛетающийЕнот · 29.06.2012, 14:31

xeaton, ок.

Pascal

var arr : array of integer; max,n : integer;
begin
 readln(n);
 setLength(arr,n);
 for i:=0 to n-1 do
  read(arr[i]);
 max:=arr[0];
 for i:=1 to n-1 do
  if arr[i]>max then
   max:=arr[i];
 writeln('Result = ',max);
end.

@xeaton 0 / 0 / 0 Регистрация: 09.06.2012 Сообщений: 152
		1
	Нахождение максимального элемента в массиве 29.06.2012, 13:15. Показов 12170. Ответов 4 Метки нет (Все метки) написать в паскале Нахождение максимального элемента в массиве 0

@xeaton 0 / 0 / 0 Регистрация: 09.06.2012 Сообщений: 152
	29.06.2012, 14:26 [ТС]	3
	А можно если не затруднит полностью написать ? 0

Опции темы