Паскаль - удаление первого отрицательного элемента массива

Ниже представлен пример программы на Паскале, которая осуществляет удаление первого отрицательного элемента массива.

Program zamena_elementow_masiwa;
Uses Crt;
const n= 15;
Var a: array [1..n] of integer;
     i,col, j, nOst: integer;
Begin
     Randomize;
writeln('выводим массив из 15 случайных чисел');
For i:= 1to n do

Begin 
a[i]:=-15+ Random(100);
Write(a[i],'  '); 
End;
writeln;

col:=1;
nOst:=n;
for i:=1 to n do
if (a[i]<0) and (col=1) then
begin
     for j:=i to nOst-1 do
     a[i]:=a[j+1];
     a[nOst]:=0;
     dec(nOst);
     col:=col+1;
end;
Writeln('обработанный массив');
For i:= 1 to nOst do
    Write(a[i],'  ');
Readln; 
end.

 

 

 

Добавить комментарий


Защитный код
Обновить