Помогите Написать программу на Паскале: купили 5 вещей найдите сумму всех вещей

Question

53

Помогите Написать программу на Паскале: купили 5 вещей найдите сумму всех вещей

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

redballoon · Accepted Answer

50

redballoon

08 февраля 2024

var Cena: array [1… 5] of real; //Массив, в котором каждый элемент — цена вещи i: integer; s: real; begin s: =0; for i: =1 to 5 do begin writeln ('Введите цену ', i, ' вещи'); readln (Cena[i]); s: =s+Cena[i]; end; writeln ('Сумма вещей: ', s); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: