Задание 4. 21. Описать процедуру, которая получает вещественный массив М из 10

21. Описать процедуру, которая получает вещественный массив М из 10

элементов и возвращает S-сумму отрицательных чисел, находящихся в

массиве.

program zadanie_4;

Type

mas = array [1..10] of real;

Var

A: mas;

i: integer;

s: real;

procedure summ_otr(var A:mas); {процедура возвращающая s-сумму

отрицательных чисел,вещественного

массива}

Begin

s:= 0;

for i:=1 to 10 do

if A[i]<0 then s:=s+A[i]

end;

Begin

for i:= 1 to 10 do

Begin

writeln('Введите число №', i);

readln(A[i])

End;

summ_otr(A);

writeln('Сумма отрицательных=',s);

readln

End.

Задание 5

21.

а) Определить, сколько раз 2-я буква введённого слова встречается в тексте.

program zadanie_5;

Var

a: string[10];

b: string;

i,k: byte;

Begin

writeln('Введите начальное слово');

readln(a);

writeln;

writeln('Введите текст');

readln(b);

for i:= 1 to length(b) do

if a[2] = b[i] then k:=k+1;

writeln;

writeln('Получилось ',k);

readln

End.

б) Дана последовательность символов S₁, S₂,S₃... S₃₅. Преобразовать эту последовательность, удалив каждый символ * и повторив каждый символ, отличный от *.

program kr2;

uses crt;

var Sequence, AStr: string;

Cycle,last: integer;

Begin

clrscr;

Sequence:= 'Ос*ен*н*яя п*ор*а – п*рекр*асн*ая по*р*а';

Cycle:=0;

Last:=35;

Repeat

Cycle:= Cycle +1;

Astr:= Copy(Sequence,Cycle,1);

if AStr='*' then

Begin

Delete(Sequence,Cycle,1);

Dec(Cycle);

Dec(Last);

End

Else

Begin

Insert(Astr,Sequence,Cycle);

Inc(Cycle);

Inc(Last)

End

until Cycle = Last;

Write(Sequence);

repeat until keypressed

End.