Witam.
Fragment kodu ma za zadanie zliczac kolumnty tablicy i wybrac najwiekszy
A wiec dla
3 1
3 1
Powinien pokazac nam 6
Dla
3 4 6
1 3 8
2 9 1
powinien dac 16 czyli srodkowa kolumna
Moj kod wyglada tak, f to integer
S[f] := 0;
repeat
// if S[f] > S[f] then
for j:=0 to n-1 do
for i:=0 to n-1 do
begin
// S[f]:=Trunc(S[f]);
S[f] := A[i,j] + S[f];
f := Cytatf+1;
end;
until S[f] > S[f]-1;
I dostaje blad
k.pas(182,26) Error: Incompatible types: got "Double" expected "SmallInt"
k.pas(199) Fatal: There were 1 errors compiling module, stopping
k.pas(0) Fatal: Compilation aborted
Ktos ma jakis pomysl ?