asutp2
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Программа:
program MyCalc;
var
I: Integer;
N: Integer;
Prices: array[1..100] of Integer;
TotalSum: Integer;
begin
// инициализируем массив цен, чтобы было что считать
N := 5;
Prices[1] := 2;
Prices[2] := 1;
Prices[3] := 6;
Prices[4] := 4;
Prices[5] := 7;
// вычисляем
TotalSum := 0;
for I := 1 to N do
TotalSum := TotalSum + Prices[I];
// результат
WriteLn('Результат: ', TotalSum);
end.
ТЗ и алгоритм составишь сам |
