//Pascal var A: array[1..10] of integer; i, Count: byte; sum: integer; begin randomize; writeln('Сгенерированный массив'); for i := 1 to 10 do begin A[i] := random(8)-3; if A[i] < 0 then sum := sum + A[i]; write(A[i],' '); end; writeln; writeln('Сумма отрицательных элементов = ', sum); writeln; writeln('Измененный массив'); for i := 1 to 10 do begin if A[i] >= 0 then begin A[i] := 0; Count := Count + 1; end; write(A[i], ' '); end; writeln; writeln('Количество нулевых элементов = ', Count); end.
var
A: array[1..10] of integer;
i, Count: byte;
sum: integer;
begin
randomize;
writeln('Сгенерированный массив');
for i := 1 to 10 do
begin
A[i] := random(8)-3;
if A[i] < 0 then
sum := sum + A[i];
write(A[i],' ');
end;
writeln;
writeln('Сумма отрицательных элементов = ', sum);
writeln;
writeln('Измененный массив');
for i := 1 to 10 do
begin
if A[i] >= 0 then
begin
A[i] := 0;
Count := Count + 1;
end;
write(A[i], ' ');
end;
writeln;
writeln('Количество нулевых элементов = ', Count);
end.