Kristina00
-
Pranešimai
1 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
0%
-
Kristina00
sureagavo į pranešimą temoje:
Informatikos VBE 2013
-
Radau apie Žvejus, gal nelabai gražiai parašyta, bet štai: program Bevarde2; type Zvejai = record vard : string[10]; d, a, b, c, vis : integer; end; Daugiausia = record vard : string[10]; viso, skai : integer; end; Mas = array [1..100] of Zvejai; var Z : Mas; D : Daugiausia; duom, rez : text; n, i, j, a, b, c : integer; procedure Skaitymas (var n : integer; var Z : Mas); begin ReadLn(duom