Удалить первый отрицательный элемент одномерного массива, если такой элемент есть.
Удалить первый отрицательный элемент одномерного массива, если такой элемент есть.
Гость
Ответ(ы) на вопрос:
Гостьprogram enot;
VAR a: array [1..5] of integer;
i,b: integer;
begin
for i:= 1 to 5 do
a[i]:= random(51)-25;
for i:= 1 to 5 do
write(a[i],' ');
writeln();
for i:= 1 to 5 do
if a[i]<0 then
begin b:=a[i];
break
end;
for i:= 1 to 5 do
if a[i]<>b
then
write(' ', a[i]);
end.
Не нашли ответ?
Похожие вопросы