Какой именно или по какой теме?
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(35,-99,99); a.Println; // индексы от нуля!
Writeln('S=',a.Where((v,i)->i.IsEven and v.IsOdd).Sum)
end.
<u>Пример</u>
-71 65 -4 -59 -76 -8 -63 43 78 84 6 -59 26 -95 -80 99 67 11 -48 -35 38 -86 78 48 91 -91 78 2 96 83 25 2 -62 45 82
S=49
Переводим цену пирожка в копейки (по формуле 100a + b), умножаем на n и получаем цену n пирожков в копейках. Делим с остатком на 100 и получаем в целой части число рублей, в остатке – число копеек.
Pascal:
program pies;
var a, b, n, total: integer;
begin
writeln('Введите значения a, b, n:');
read(a, b, n);
total := n * (100 * a + b);
writeln('Цена пирожков: ', n div 100, ' руб. ', n mod 100, ' коп.')
end.