Var a: array [1..12] of real; //Массив стоимости s: real; //сумма i: integer;
begin s:= 0; for i:= 1 to 12 do {12 раз вводим стоимость предмета и прибавляем ее к значению s} begin writeln('Введите стоимость предмета'); readln(a[i]); s:= s a[i]; end; writeln('Общая стоимость всех предметов: ', s); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
