Заполните массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли в начале массива, а все отрицательные и нули-в конце. Вычислите количество положительных элементов.
через паскаль
Ответы
Ответ дал:
0
Ответ:
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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
8 лет назад