Показать сообщение отдельно
Трэй
Аватар для Трэй
Сообщения: 8,137
Регистрация: 30.09.2008
Старый пост, нажмите что бы добавить к себе блог 11 марта 2011, 23:11
LastFm
  #1130 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от Трэй Посмотреть сообщение

нас просто учили, что если for ... do то надо begin\end ставить
спасибо, учту
Код:
const k=10;
var a:array[1..k+1] of integer;
i,o:integer;
begin
for i:=1 to k do
begin
readln(a[i]);
end; 
for i:=1 to k do
begin
if a[i]<0 then
begin
for o:=i to k do a[o]:=a[o+1];
end;
end;
writeln('Вывод:');
for i:=1 to k do
begin
if a[i] < 0 then a[i]:= 0;
writeln(a[i]);
end;
readln;
end.
у меня без
for i:=1 to k do
begin
if a[i] < 0 then a[i]:= 0;

заработало

спасибо огромное

offline
Ответить с цитированием