написать программу в Паскале. С одномерным массивом, состоящим из n вещественных элементов, произвести следующие операции: 1) найти количество положительных элементов массива; 2 найти количество элементов массива, меньших определенного числа, вводимого пользователем; 3) вычислить сумму элементов массива, расположенных после последнего элемента, равного нулю;

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ReadArrReal('Вводите:', n);

 a.Count(p -> p > 0).Println;

 var b := ReadReal('Введите число:');

 a.Count(p -> p < b).Println;

 var i := a.LastIndexOf(0.0);

 if i > -1 then

   a?[i:].Sum.Print

 else

   Print(0)

end.

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.

линейный (следования)

разветвляющийся (развилка)

циклический