Vytvorené: 25. 03. 2014 Tlačiť
program MaximumasucetvhlavnejdiagonaleOk;
var
cislo: array[1..5,1..5] of integer;
max,i,j,sucet: integer;
begin
max:=0;
sucet:=0;
randomize;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
cislo[i,j]:=random(1001);
write(cislo[i,j],' ');
if (i+j=6) then sucet:=sucet+cislo[i,j];
if cislo[i,j]>max then max:=cislo[i,j];
end;
writeln;
end;
writeln ('Maximum = ',max);
writeln ('Sucet = ',sucet);
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 |