Учеба и наука
Решено
Удалить из массива первый отрицательный элемент. Составить программу в Паскаль АБС!!!! - вопрос №1276969
декабрь 2, 2014 г.
-
Всего ответов: 1
-
program p2;
const n=10;
var a:array[1..n] of integer;
i,j:integer;
begin
writeln('vvedite massiv');
for i:=1 to n do readln(a[i]);
for i:=1 to n do begin
if a[i]<0 then
for j:=i to n-1 do
a[j]:=a[j+1];
a[n]:=0;
break;
end;
for i:=1 to n-1 do write(a[i]:5);
end.Лучший ответ по мнению автора
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.
Учеба и наука