//Видимо, это одна задача, так как "изменения" во второй не указаны //Pascal ABC.NET v3.1 сборка 1172
Const n=20;
Var ar:array[1..n] of integer; i:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(10)-3; write(ar[i]:4); if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0; end; writeln; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end.
По автомагистрали Москва-Симферополь два спортсмена одновременно начали тренировочный велопробег навстречу друг другу. В тот момент, когда между велосипедистами осталось всего 300 километров, пробегом очень заинтересовалась одна любопытная муха. Слетев с плеча одного велосипедиста и опережая его, она помчалась навстречу другому. Встретив второго велосипедиста и убедившись, что все у него хорошо, она немедленно повернула обратно. Долетела муха до первого спортсмена и опять повернула ко второму. Так она и летала между сближавшимися велосипедистами до тех пор, пока велосипедисты не встретились. Тогда муха успокоилась и села одному из них на нос. Муха летала между велосипедистами со скоростью 100 километров в час, а велосипедисты все это время ехали со скоростью 50 километров в час.
Сколько километров пролетела муха?
Расстояние между велосипедистами сокращалось на 100 километров каждый час, и расстояние между ними сократилось с 300 километров до нуля в течение трёх часов. За эти три часа, по какой бы траектории ни летала муха со скоростью 100 километров в час, она пролетела бы (и она пролетела) 300 километров. Не знаю, что сказали бы на это энтомологи, но ни один математик возражать, я думаю, не станет.
Эту задачу я встречал с другими числами и в другом, более жизненном, воплощении: собачка бегала от одного знакомого ей пешехода к другому, пока они не встретились.
//Pascal ABC.NET v3.1 сборка 1172
Const
n=20;
Var
ar:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(10)-3;
write(ar[i]:4);
if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0;
end;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
Пример работы программы:
First array: 2 -3 5 6 -3 -3 1 -2 -3 1 3 -3 4 -3 1 -1 6 6 2 3
Final array: 4 0 10 12 0 0 2 0 0 2 6 0 8 0 2 0 12 12 4 6