Цитата:
Сообщение от Monro
Скажите,пожалуйста,а можно сделать так чтобы я сама вводила количество строк?)
просто программа пишет сразу первую строку,а мне надо самой их задать)
|
Как-то так:
Код:
VAR
St:Array[1..255] of String;
i,M:Byte;
BEGIN
Write('Number of strings (<256)= ');
Readln(M);
For i:=1 to M do
begin
Writeln(i:2,' string:');
Readln(St[i]);
end;
Writeln;
For i:=1 to M do
begin
Write(i:2);
If (Ord(St[i][1])>64) and (Ord(St[i][1])<91) then
Writeln(' Big') else Writeln(' Small');
end;
Readln;
END.