Vytvorené: 28. 10. 2013 Tlačiť
program Najdenie_maxima;
var
pole: array [1..10] of integer;
i,max: integer;
begin
writeln;
pole [1]:=10;pole[2]:=5;pole[3]:=15;pole[4]:=17;pole[5]:=12;
pole[6]:=4; pole[7]:=1;pole[8]:=40;pole[9]:=101;pole[10]:=99;
max:=pole[1];
for i:=2 to 10 do if pole[i]>max then max:=pole[i];
writeln('Maximum je ',max,'.');
readln;
end.
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
· Simulácie z fyziky· O Slovensku po slovensky· Slovenské kroje· Kurz národopisu· Diela maliarov· Kontrolné otázky, Domáce úlohy, E-testy - Priemysel· Odborné obrázkové slovníky· Poradňa žiadaného učiteľa· Rýchlokurz Angličtiny. Rozprávky (v mp3)· PREHĽADY (PRIBUDLO, ČO JE NOVÉ?)Seriály:· História sveta (1÷6)· História Slovenska (1÷5)· História módy (1÷5).
Členstvo na portáli
Poznámka pre autora
Copyright © 2013-2024 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady |