Задача, Массивы строк Опции

[Aljonka]

Программа запрашивает N строк, сохраняет их в массиве S и сообщает:
• есть ли в массиве строки одинаковой длины,
• есть ли в массиве одинаковые строки.

[Aljonka]

Uses CRT;
var   i, j, k, N, x, y,t: Integer;   
S: Array[1..20] of String;
begin
ClrScr;
Write('N='); Readln(N); 
For k:=1 To N Do
begin
Write('S[',k,']='); Readln(S[k]);
end;
if n=1 then
writeln('Tikai 1 virkne, uzdevumam nav jegas')
else
x:=0;
for i:= 1 to n-1  do
for j:=i+1 to n do begin
if length(s[i])=length(s[j]) then inc(x);
end;
if x>0 then Writeln('ir virknes ar vienadu garumu')
else Writeln('nav virknju ar vienadu garumu');
y:=0;
for i:=1 to n-1 do
for j:=i+1 to n do begin
if s[i]=s[j] then inc(y);
end;
if y>0 then Writeln('ir vienadas virknes ')
else Writeln('nav vienado virknju');
readln;
end.

М

используем теги ...

Сообщение отредактировано: klem4 - 5.12.2007 23:30