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

Question

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

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.