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

@milaska_litlle · Регистрация: 07.10.2009

Решите задачку пожалуйста.
Найдите максимальный элемент в массиве.

@Darika · 07.10.2009, 17:59

Pascal

Pr1
const n+20;
type mas=array[0..n] of word;
var i:word;
procedure vvod (var X:mas)
begin 
       for i:=1 to n do x[i]:= randon(100);
end;
procedure vivod(x:mas);
begin  
       for i:=1 to n do 
                     write(x[i]):3;
end;
Begin
randomize;
writeln('ДАН МАССИВ');
vvod (a);
vivod(A);
MAX:=A[i];
FOR I:=2 TO N DO IF (a[i]>max)then
                                  begin 
                                   max:=a[i];
                                    end;
End.

вроде так может чуток отредактировать

@milaska_litlle · 07.10.2009, 19:05 **[ТС]**

Сообщение от Darika

Pr1
const n+20;
type mas=array[0..n] of word;
var i:word;
procedure vvod (var X:mas)
begin
for i:=1 to n do x[i]:= randon(100);
end;
procedure vivod(x:mas);
begin
for i:=1 to n do
write(x[i]):3;
end;
Begin
randomize;
writeln('ДАН МАССИВ');
vvod (a);
vivod(A);
MAX:=A[i];
FOR I:=2 TO N DO IF (a[i]>max)then
begin
max:=a[i];
end;
End.
вроде так может чуток отредактировать

Спасибо огромное!А можно как нибудь попроще составить программу,а то я половину операторов пока незнаю.

@Darika · 07.10.2009, 19:26

я сама плохо знаю..просто у меня она была уже решенная

@Давид · 07.10.2009, 19:26

Пожалуйста...вот вариант попроще...без всяких процедур!

Pascal

Program zadacha;
Uses crt;
 Var mas:array [1..100] of integer;
     max,i,n:integer;
begin
clrscr;
 Writeln (' Vvedite kol-vo cifr ');
 Readln (n);
 For i:=1 to n do begin write ('Vvedite ',i, ' Chislo ');
                        Readln (mas[i]);
                  end;
 Writeln (' Polycheny chisla ');
 for i:=1 to n do
 write (mas[i]:4);
Max:=mas[i];
For i:=2 to n do
  if mas[i]>max then max:=mas[i];
Writeln;
writeln ('Maxim chislo ',max);
Readln
end.

@milaska_litlle · 08.10.2009, 13:51 **[ТС]**

Спасибо огромное Давид

@Давид · 08.10.2009, 13:53

milaska_litlle, Всегда пожалуйста!

03.12.2010, 19:27

Uses crt;
var a:array[1..10] of integer;
i,max:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
max:=a[1];
for i:=1 to 10 do
if a[i]>max then max:=a[i];
writeln('max=',max);
readkey;
end.

На школьном уровне обучени

@SunEclipse · 03.12.2010, 19:47

Dead_emotion, вы дату посмотрите публикации...

@milaska_litlle 0 / 0 / 0 Регистрация: 07.10.2009 Сообщений: 15
		1
	Нахождение максимального элемента в массиве. 07.10.2009, 16:56. Показов 37166. Ответов 8 Метки нет (Все метки) Решите задачку пожалуйста. Найдите максимальный элемент в массиве. 0

@milaska_litlle 0 / 0 / 0 Регистрация: 07.10.2009 Сообщений: 15
	07.10.2009, 19:05 [ТС]	3
	Сообщение от Darika Pr1 const n+20; type mas=array[0..n] of word; var i:word; procedure vvod (var X:mas) begin for i:=1 to n do x[i]:= randon(100); end; procedure vivod(x:mas); begin for i:=1 to n do write(x[i]):3; end; Begin randomize; writeln('ДАН МАССИВ'); vvod (a); vivod(A); MAX:=A[i]; FOR I:=2 TO N DO IF (a[i]>max)then begin max:=a[i]; end; End. вроде так может чуток отредактировать Спасибо огромное!А можно как нибудь попроще составить программу,а то я половину операторов пока незнаю. 0

@Darika 0 / 0 / 0 Регистрация: 29.09.2009 Сообщений: 13
	07.10.2009, 19:26	4
	я сама плохо знаю..просто у меня она была уже решенная 0

@milaska_litlle 0 / 0 / 0 Регистрация: 07.10.2009 Сообщений: 15
	08.10.2009, 13:51 [ТС]	6
	Спасибо огромное Давид 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	08.10.2009, 13:53	7
	milaska_litlle, Всегда пожалуйста! 0

Dead_emotion
	03.12.2010, 19:27	8
	Uses crt; var a:array[1..10] of integer; i,max:integer; begin for i:=1 to 10 do begin a[i]:=random(10); write(a[i],' '); end; max:=a[1]; for i:=1 to 10 do if a[i]>max then max:=a[i]; writeln('max=',max); readkey; end. На школьном уровне обучени

@SunEclipse 232 / 181 / 104 Регистрация: 19.03.2010 Сообщений: 949
	03.12.2010, 19:47	9
	Dead_emotion, вы дату посмотрите публикации... 0

Опции темы