Сформировать массив размером в 30 элементов из чисел от -20 до 20 (Random). Вывести на экран этот массив. Добавить к каждому элементу массива случайное число из диапазона от -5 до 5. Вывести новый массив.

uses crt; var e:array[1..3,1..7] of integer; s,max,n,m:integer;

index,sum:integer;

procedure max_el;

begin max:=e[1,1];

sum:=0;

index:=0;

for n:=1 to 3 do

begin

for m:=1 to 7 do

begin

if e[n,m]>max then

begin

max:=e[n,m];

index:=m;

end;

end;

end;

for n:=1 to 3 do

begin

if e[n,index]<0 then

begin

sum:=sum+e[n,index];

end;

end;

writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum);

end;

begin

clrscr;

writeln('elementy massiva');

writeln;

randomize;

for n:=1 to 3 do begin for m:=1 to 7 do

begin

e[n,m]:=random(100) -50;

write('',e[n,m],' ');

end;

writeln;

end;

writeln;

writeln;

max_el;

readkey;

end.

Объяснение:

1. код, предложенный  budzsergiy777p0i27m  наиболее подходит для решения, если слова разделены только одним пробелом. решение ниже аналогично (удалить пробелы в начале и в конце строки, затем посчитать пробелы, увеличить на 1 результат и вывести на экран )программа: print((' ')+1) 2. здесь следует учесть, что строка является неизменяемым элементом, т.е. напрямую символ в строке изменить нельзя, но можно получить два среза строки до и после буквы 'h' и затем склеить первый срез + большая буква 'h' + второй срез. например, строка 'abchdef' -> 'abc'+'h'+'def'. а чтобы не захватить первую и последнюю букву h, нужно найти их индексы в строке и затем обрабатывать только часть строки между первой и последней буквой h.программа: x=input()              #ввод строкиn1=x.find('h')        #находим индекс первого вхождения буквы hn2=x.rfind('h')      #находим индекс последнего вхождения буквы hy=x[n1+1: n2]      #выбираем срез строки после первого вхождения                           #буквы h и до последнего вхождения буквы hwhile y.find('h')! =-1: #пока в срезе есть буква h        y=y[: y.find('h')]+'h'+y[y.find('h')+1: ]  #заменить малую букву h на hprint(x[: n1+1]+y+x[n2: ])    #вывод строки до первой буквы h+результат                                         #замен в срезе h на h + вывод строки после                                        # последней буквы h