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
Arşivin durumu
● Tam metin
● 3/3 yorum korunmuş
Yayımlandığı site: teswirler.com · Kaynak: Web Archive kopyası — ertir.com, 19 Mayıs 2012 · Orijinal sayfayı gör ↗
Yorumlar 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