pascalABC
Объяснение:
var
a: array of integer;
i, j, n, k: integer;
begin
Write('Введите размер массива: '); ReadLn(n);
SetLength(a, n);
Randomize();
for i := 0 to n - 1 do begin
a[i] := random(201) - 100;
if a[i] > 0 then inc(k);
end;
for i := 0 to n - 2 do begin
if a[i] > 0 then continue;
for j := i + 1 to n - 1 do begin
if a[j] > 0 then begin
swap(a[i], a[j]); //перестановка элементов местами
break;
for i := 0 to n - 1 do Write(a[i], ', '); WriteLn;
WriteLn('В массиве ', k, ' положительных элементов.');
end.
pascalABC
Объяснение:
var
a: array of integer;
i, j, n, k: integer;
begin
Write('Введите размер массива: '); ReadLn(n);
SetLength(a, n);
Randomize();
for i := 0 to n - 1 do begin
a[i] := random(201) - 100;
if a[i] > 0 then inc(k);
end;
for i := 0 to n - 2 do begin
if a[i] > 0 then continue;
for j := i + 1 to n - 1 do begin
if a[j] > 0 then begin
swap(a[i], a[j]); //перестановка элементов местами
break;
end;
end;
end;
for i := 0 to n - 1 do Write(a[i], ', '); WriteLn;
WriteLn('В массиве ', k, ' положительных элементов.');
end.
pascalABC
Объяснение:
var
a: array of integer;
i, j, n, k: integer;
begin
Write('Введите размер массива: '); ReadLn(n);
SetLength(a, n);
Randomize();
for i := 0 to n - 1 do begin
a[i] := random(201) - 100;
if a[i] > 0 then inc(k);
end;
for i := 0 to n - 2 do begin
if a[i] > 0 then continue;
for j := i + 1 to n - 1 do begin
if a[j] > 0 then begin
swap(a[i], a[j]); //перестановка элементов местами
break;
end;
end;
end;
for i := 0 to n - 1 do Write(a[i], ', '); WriteLn;
WriteLn('В массиве ', k, ' положительных элементов.');
end.