Kód: Vybrať všetko

program matice;
uses crt;
var a: array[1..10,1..10] of integer;
i,r,s,pr,ps,suc: integer;
begin
clrscr;
writeln;
textcolor (lightblue);
writeln ('MATICE':40);

{Zadaj pocet riadkov a stlpcov}
textcolor (yellow);
writeln ('Zadaj pocet riadkov a stlpcov');
textcolor (lightgreen);
readln (pr,ps);

{Nacitanie prvkov}
for r:=1 to pr do for s:=1 to ps do begin
textcolor (white);
writeln ('Zadaj prvok ',' riadok: ',r,' stlpec: ',s);
textcolor (lightgreen);
readln (a[r,s]);
end;

{vymazanie obrazu po nacitani}
clrscr;
writeln;
textcolor (lightblue);
writeln ('MATICE':40);

{Vypis prvkov}
writeln;
textcolor (yellow);
writeln ('Vypis prvkov: ');
for r:=1 to pr do begin
for s:=1 to ps do begin
textcolor (white);
write (a[r,s],' ');
end;
writeln;
end;
writeln;

{Sucet neparnych cisel v stlpcoch}
textcolor (yellow);
writeln ('Sucty prvkov: ');
suc:=0;
for s:=1 to ps do begin
for r:=1 to pr do begin
if a[r,s] mod 2 <> 0 then begin suc:=suc+1; end;
end;
textcolor (white);
writeln ('Sucet neparnych cisel v ',s,'. stlpci: ',suc);
suc:=0;
end;

{sucet parnych cisel v stlpcoch}
suc:=0;
for s:=1 to ps do begin
for r:=1 to pr do begin
if a[r,s] mod 2 = 0 then begin suc:=suc+1; end;
end;
textcolor (white);
writeln ('Sucet parnych cisel v ',s,'. stlpci: ',suc);
suc:=0;
end;


{Vypis prvkov farebne}
writeln;
textcolor (yellow);
writeln ('Vypis prvkov farebne: ');
for r:=1 to pr do begin
for s:=1 to ps do begin
{podmienky}
if a[r,s] mod 2 = 0 then begin textcolor (red);
write (a[r,s],' ');
end;
if a[r,s] mod 2 <> 0 then begin textcolor (blue);
write (a[r,s],' ');
end;
end;
writeln;
end;
readln;
end.