Question

Решить задачу в Паскале:В числовом массиве из 10 элементов, заданных случайным образом от -100 до 100: а) удалить первый положительный элемент; б) удалить все отрицательные элементы. решить это в одной задаче (можно и по отдельности, главное, чтобы работала программа)))срочно! жду верного и быстрого ответа)

Answer 1

1)
program gt;
var a,b:array[1..100]of integer;
n,m,i,q:longint;
begin
Randomize;
q:=0;
for i:=1 to 10 do
begin
a[i]:=random(200)-100;
if(a[i]>0)then begin
q:=q+1;
if(q=1)then a[i]:=400;
end;
end;
for i:=1 to 10 do
begin
if(a[i]<>400)then write(a[i],' ');
end;
end.
2)
program gt;
var a,b:array[1..100]of integer;
n,m,i,q:longint;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(200)-100;
if(a[i]<0)then begin
a[i]:=400;
end;
end;
for i:=1 to 10 do
begin
if(a[i]<>400)then write(a[i],' ');
end;
end.

Answer 2

Приведу пример решения данной задачи на языке Паскаль:

```pascal program RemoveElements;

const N = 10; // количество элементов в массиве

var arr: array[1..N] of Integer; i, j: Integer; firstPositiveIndex, negativeCount: Integer;

begin // Заполнение массива случайными числами от -100 до 100 Randomize; for i := 1 to N do arr[i] := Random(201) - 100;

// Вывод исходного массива writeln('Исходный массив:'); for i := 1 to N do write(arr[i], ' '); writeln;

// Удаление первого положительного элемента firstPositiveIndex := -1; for i := 1 to N do begin if arr[i] > 0 then begin firstPositiveIndex := i; break; end; end;

if firstPositiveIndex <> -1 then begin for i := firstPositiveIndex to N - 1 do arr[i] := arr[i + 1]; N := N - 1; end;

// Вывод массива после удаления первого положительного элемента writeln('Массив после удаления первого положительного элемента:'); for i := 1 to N do write(arr[i], ' '); writeln;

// Удаление всех отрицательных элементов negativeCount := 0; for i := 1 to N do