Garām, protams ;) , bet sākumam derēs
g : Array of string;
manuprāt definēts nepareizi
readln(g);
šaubos vai tas strādās kā masīva elementa ievads
min:=-50;
vārda garums negatīvs?
if length (g[i]) < length(g[i]) then
bezjēdzīga elementa salīdzināšana pašam ar sevi
Writeln('Vards, atrod isako vardu : ', min);
apšaubāms teksts
..
pirms 10 gadiem
Kritērijs jau ir pavisam vienkāršs - ja strādā pareizi ar tipiskiem testiem, tad der.
Pavirši skatoties varētu derēt, katrā ziņā labāk
500
, pirms 10 gadiem :
program mhdd;
var g : array[1..5] of string;
i,min : integer;
begin
min:=1;
for i:=1 to 5 do
writeln ('ievadiet vaardu');
readln(g[min]);
if length(g[i])<length(g[min]) then min:=i;
end;
writeln('iisaakais vaards: ', g[min]);
readln;
end.