Komek edäýiň?!
Salam agzalar! Men heniz okuwçy. Basym welaýat boýunça geçiriljek olimpiýada informatikadan taýynlyk görýän. Men köp zatlary öwrendim ýöne bir meseläni çözüp bilemok. Internetden hem gözledim... Netije ýok. Eger araňyzda bilýäniňiz bar bolsa şu aşakdaky meseläniň programmasyny Paskal ýa-da Basik dilinde düzüp berseňiz minnetdar bolardym:
Berlen sözlemdäki sözleriň iň uzynyny çapa çykarmaly
Состояние архива
● Полный текст
● Сохранено комментариев: 3/3
Опубликовано на сайте: teswirler.com · Источник: копия Web Archive — ertir.com, 19 мая 2012 · Открыть оригинал ↗
Комментарии 3
martyñ 22-sinemi?
yok 27 fewralda
uses crt;
var a:array[1..100] of String;
b:array[1..1000] of integer;
t,i,max,l:integer;
begin
clrscr;
Write('Nace soz');
Readln(t);
for i:=1 to t do
begin
Write('a[',i,']=');
Readln(a[i]);
end;
for i:=1 to t do
b[i]:=length(a[i]);
max:=b[1];
for i:=1 to t do
if max