Создать массив b 7 элементов в интервале от 0 до 10 , заменить все элементы кратные 3 на сумму элементов массива.

var a: array[1..7]of integer; i,s: integer; beginfor i: =1 to 7 do begin a[i]: =random(9)+1; s: =s+a[i]; end; for i: =1 to 7 do write(a[i],' '); writeln; for i: =1 to 7 do if a[i] mod 3=0 then a[i]: =s; for i: =1 to 7 do write(a[i],' '); end.

7

2

мотор

Торт

Объяснение:

Writeln(length(s)) - вывод количества символов в строке

Writeln(pos('о',s)) - вывод первой позиции символа 'о' в строке s

Delete(s,3,2) - удаление в строке s 2-х символов начиная с символа под номером 3

Writeln(s) - вывод получившейся строки s

T:=copy(s, 3, 3) - копирование в строку t 3-х символов строки s начиная с 3 символа (тор)

Insert ('т',t,4) - вставка символа 'т' в строку t на позицию 4

Writeln (t) - вывод получившейся строки t

T[1]:=UpCase(t[1]) - замена первого символа строки t на заглавный

Writeln (t) - вывод получившейся строки t