Составить ! паскаль. 1. из строки символов удалить самое длинное слово (тема: строковые и символьные величины).

245

297

Посмотреть ответы 2

Ответы на вопрос:

Nastya0Musso

Информатика

4,5(29 оценок)

Var st: string; i,begs,ind,maxs: integer; begin write('задайте строку: '); readln(st); begs: =1; maxs: =1; for i: =1 to length(st) do begin if st[i]=chr(32) then begin if maxs< (i-begs) then begin maxs: =i-begs; ind: =begs; end; begs: =i+1; end; end; delete(st,ind,maxs); writeln('новая строка: ',st); end.

vasta5555555

Информатика

4,5(58 оценок)

Что такое удалённая сумма не знаю, а просто сумма находится так: const n=5; var a: array [1..n] of integer; sum,i: integer; begin randomize; writeln(': '); for i: =1 to n do begin a[i]: =random(20)-10; write(a[i]: 6); end; writeln; sum: =0; for i: =1 to n do if a[i]> 0 then sum: =sum+a[i]; writeln('sum=',sum); end.