<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqReal(3).Where(t -> t > 0).Sum.Println
end.
<h2>3.53 -6.23 12</h2><h2>15.53 </h2>
Каталог папка директория в данном случае наверное первое
Первая часть
Program n_1;
var i:integer; B: array[1..7] of real;
begin
for i:=1 to 7 do begin
read(B[i]);
if B[i]<0 then B[i]:=0;
end;
for i:=1 to 7 do write(B[i]:0:5, ' ');
end.
Вторая часть
Program n_2;
var i:integer; a:real; C: array[1..10] of real;
begin
for i:=1 to 10 do begin
read(C[i]);
end;
a:=C[1];
for i:=1 to 10 do if (C[i]>a) then a:=C[i];
writeln(a:0:10);
end.
Program prim;
uses crt;
var
y,x,a,modul,koren,kvad:real;
begin
writeln('Решаем пример:');
kvad:=sqr(x);
koren:=sqrt(x*a);
modul:=abs(a);
y:=(kvad-koren)/modul;
writeln(y);
<span>end.</span>
Вот таблица сходств WiMAX и Wi-Fi у меня