Заменить первый отрицательный член массива нулем
agayevaaysu
3
08.03.2019 22:20
2
Другие вопросы по теме Информатика
Flyzi
05.07.2019 23:10
dilmurod9292
17.06.2019 16:30
kuzmichevaliza
30.11.2019 18:25
радмир140
30.11.2019 18:24
Alecsa20033
30.11.2019 18:08
алик143
30.11.2019 17:57
vasyamlodp0c2ay
30.11.2019 17:43
aise09
30.11.2019 19:10
Популярные вопросы
- Морфологический разбор дополнения: вот сад...
1 - Решение пропорции x/6=1/30 1)1/6 2)1/5 3)36 4)24 выручайте...
3 - Правильная треугольная призма abca1b1c1. точка p-середина ребра a1b1 bc1...
2 - Эти слова называют один предмет.измени их так, чтобы они называли несколько...
3 - Хорды me и pk пересекаются в точке a так, что pa к отрезку ka= 1: 3 ....
3 - Хотел ли бы ты чтобы том сойер был твоим другом? почему?...
1 - Под каким углом горизонту нужно бросить камень для того чтобы дальность...
3 - Выберите правильный вариант. 1. george usually his weekends with his granny....
1 - Страны южной азии описание страны по типовому плану...
2 - Из двух городов навстречу друг другу одновременно вышли два поезда,причем...
2
var a:array[1..10] of integer;
i,t:integer;
Begin
for i := 1 to 10 do
read(a[i]);
for i := 1 to 10 do begin
if (a[i]<0) and t=0 then begin
a[i]:=0;
t:=1;
end;
writeln(a[i]);
end;
End.