Чем дороги цифры 5,4 и 1 для ЮУрГГПУ ребят, очень надо!!!​

паровозы кажется могут толкать состав назад, ехать как задом так и передом и тп. иначе я не знаю.

первый поезд делится на (паровоз+10) и 11 вагонов.

и эту десятку паровоз тянет в тупичек.

второй поезд проезжает тупичек.

паровоз первого вытягивает свою десятку на свободный путь

второй паровоз толкает свой состав так чтоб стать перед тупичком

второй паровоз отцепляется и прицепляется к оставшимся 11 вагонам.

второй паровоз задом запихивает 11 вагонов в тупичек

второй паровоз берет свой состав и уезжает

первый паровоз забирает свои 11 вагонов

var

a: array[1..100] of integer;

i,s,r: integer;  

begin

for i: =1 to 100 do read(a[i]);

for i: =1 to 100 do

begin

if a[i]< 0 then r: =r+a[i] else s: =s+a[i];

end;

writeln('сумма всех положительных чисел= ',s);

writeln('сумма всех отрицательных чисел= ',r);

readln

end.

посчитает максимум 100 чисел. 

отсканированный текст является изображением и по сути ничем не отличается, например от фотографии. отсканированный текст нужно распознать специальным софтом, лучше всего с abby fine reader, после этого текст можно редактировать.

var  a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: ');   readln(a); // вводим число (можно больше трех знаков)  while a < > 0 do  // пока остались цифры в числе   begin      s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме      a : = a div 10; // стираем последнюю цифру числа  end;   writeln('сумма цифр = ', s) // выводим результатend.