Program - Operácie s maticami :)

Určenie maxima a súčtu v hlavnej diagonále matice

Program napísaný v jazyku Pascal.

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.

Hodnotenie užitočnosti článku:

• ← Program - Malá násobilka :)
• Program - Počet dní v mesiaci :) →