0 дауыс
477 көрілді
Бір өлшемді A{2,-3.5,-8,2}  Ең үлкен элементін баспаға шығаратын пргорамма құрау керек?

1 жауап

0 дауыс

Program esep6; 

Uses crt; 

Var I, max :integer: 

A: array [l…5] of integer; 

Begin 

Clrscr; 

For i:=1to 5 do 

Begin 

Writeln(`a[`,I,` ]-?`); 

Readln(a[i]); 

End; 

Max:= a [I]; 

For i:=2to 5do 

Begin 

If max<(A[i]) then max :=a[i]);

 End. 

Толығырақ: http://talimger.org/load/ash/infor/olimpiada_a_dajyndalu_a_arnal_an_esepter_zhina_y/12-1-0-975

...