Составные: крылья, двигатель,кабина
действия: летают, могут перевозить различные грузы
Program z;
var str:string;
begin
str:='В печке выпечен батон, а в петлицу вдет бутон';
while pos('е',str)>0 do
delete(str,pos('е',str),1);
writeln(str);
end.
Ответ:
program Multi;
var
a, b: Real;
begin
Write ('Введите 2 числа: ');
ReadLn (a, b);
if a * b > 0 then
WriteLn ('Произведение положительно')
else if a * b < 0 then
WriteLn ('Произведение отрицательно')
else
WriteLn ('Произведение равно 0');
ReadLn;
end.
Program n1;
var a: array[1..20] of integer;
i,sum: integer;
begin
randomize;
write('исходный массив: ');
sum:=0;
for i:=1 to 20 do
begin
a[i]:=random(21);
write(a[i],' ');
sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
writeln('срзнач: ',sum/20);
end.