Я очень люблю и уважаю поэзию. Даже сама (Сам) пишу стихи. Почему мне нравится поэзия? Ну так сразу и не сказать. Когда я открываю томик стихотворений Пушкина или Есенина все проблемы уходят на второй план. Сразу приходить такая легкость, безмятежность (проверь По словарю это слово ). И все проблемы сразу решаемы . Мое любимое стихотворение "Жди меня " К. Симонова. Когда его читаешь слезы текут ручьем от того, как автор передал всю боль, весь страх того времени. Лично я вам советую почаще читать. Это увлекательно и полезно. как-то так )
Const n=20; var a:array[1..n] of integer; max,s,k,i:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(50); write(a[i],' '); end; writeln; max:=a[1]; s:=0; k:=0; for i:=1 to n do begin if a[i]>max then max:=a[i]; s:=s+a[i]; if a[i]=10 then k:=i; end; writeln('max = ',max,' s = ',s); if k>0 then writeln('Элемент = 10 имеет номер ',k) else writeln('В массиве нет элемента = 10'); end.
Пример: 13 47 29 31 34 5 37 35 3 40 10 42 15 3 3 26 36 14 16 43 max = 47 s = 482 Элемент = 10 имеет номер 11
автор письма не придерживается норм сетевого этикета