Var
sum, count, t : integer;
begin
sum := 0; count := 0;
while not eoln do
begin
read (t);
if t > 0 then
begin
sum := sum + t;
count := count + 1;
end;
writeln (sum, ' ', count);
end.
если количество элементов указано
var
sum, count, t, n, i : integer;
begin
sum := 0; count := 0;
read (n);
for i := 1 to n do
begin
read (t);
if t > 0 then
begin
sum := sum + t;
count := count + 1;
end;
writeln (sum, ' ', count);
end.
If x>y then begin writeln ('Не попал! Число больше!');goto m; end;
<span>if x<y then begin writeln('Не попал! Число меньше');goto m; end;</span>
begin
var n := 10;
var x := 5;
var a := Arr(0, 1, 2, 3, 4, 5, 6, 7, 8, 9);
var b := a.Where(y -> y < x).ToArray;
b.Println;//0 1 2 3 4
end.
Одурелось о и о так новерно
<span>Сортировка методом пузырька (по возрастанию)
procedure MassivSort(var arr : array of Real; const N : Integer);var I: Integer; J: Integer; K: Integer; M: Real;begin for i:=1 to N do begin m:=Arr[i-1]; k:=i; for j:=i to n do begin if m>Arr[j-1] then begin m:=Arr[j-1]; k:=j; end; end; Arr[k-1]:=Arr[i-1]; Arr[i-1]:=m; end;end;
Сортировка по убыванию:
<span>procedure sort;
var i , j , tmp : integer;
begin
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] < a[j] then begin
tmp := a[i];
a[i] := a[j];
a[j] := tmp;
end<span>;</span></span>
</span>