Мама послала Петю в магазин за продуктами, дав ему 500 рублей. Известна стоимость каждого из 7 продуктов, которые он купил. Определить, хватит ли Пете

денег для покупки данных продуктов. (Паскаль)

Question

Информатика

Артем

12 апреля, 13:46

Мама послала Петю в магазин за продуктами, дав ему 500 рублей. Известна стоимость каждого из 7 продуктов, которые он купил. Определить, хватит ли Пете

денег для покупки данных продуктов. (Паскаль)

+1

Ответы (1)

Знаете ответ на вопрос?

Анатольич · Answer 1

Var ar:array[1 ... 7] of integer;

k, i:integer;

begin;

for i:=1 to 7 do

begin;

writeln ('Введите цену ', i,' продукта:') ;

readln (ar[i]) ;

k:=k+ar[i];

end;

if k>500 then writeln ('Не хватит') else writeln ('Хватит') ;

end.