Подскажите что тут исправить
| Код |
Program lab2zad2naz;
Uses Crt;
Type
Grad=record
g:string;
end;
Var
mas:array[1..10]of grad;
i,j:byte;
kol,kol1:byte;
Procedure Proc;
Begin
For i:=1 to 10 do
Begin
Write('Vvedite gorod #',i,': ');
Readln(mas[i].g);
kol1:=0;
For j:=1 to Length(mas[i].g) do
Begin
If (mas[i].g[j]='a')or(mas[i].g[j]='A') Then kol1:=kol1+1;
end;
If kol1>1 Then kol:=kol+1;
End;
End;
Begin
ClrScr;
kol:=0;
Proc;
Writeln('');
writeln('****************');
Writeln('Kolichestvo gorodov s dvumya bukvami "a": ',kol);
writeln('****************');
Readln;
End.
|
Задача решена через массива с использованием Reccord,а нужно без него,впринципе тут не трудно только надо по убирать массивы,а у меня всеравно что то не получаеться,плиз подскажите!!! |
