<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
function ReadWhileSum(cond: integer->boolean): sequence of integer;
begin
var s := 0;
while True do
begin
var x := ReadInteger();
s += x;
if not cond(s) then break;
yield x;
end;
end;
begin
Println('Сред. арифм. =',ReadWhileSum(sum -> sum < 150)
.Where(t->t.IsEven).Average);
end.
Var A,i,k:integer;
Begin
Write('Введите 10 целых чисел: ');
k:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A>0 then k:=k+1
End;
Write('Количество положительных: ',k);
End.
P.S программа работает для русских символов. Если нужны латинские, то поменяйте все "а","у" и "х" на соответствующие
program n1;
uses crt;
var
st:string;
i:integer;
begin
writeln('Введите строку'); readln(st);
for i:=1 to length(st) do
if (st[i]='а') and (st[i+1]='х') then st[i]:='у';
writeln(st);
<span>end.</span>
Uses crt;
const n=7;
var a:array[1..n] of real;
i:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
a[i]:=a[i]*0.133;
write(a[i],' ');
end;
end.