Мама послала Петю в магазин за продуктами, дав ему 500 рублей. Известна стоимость каждого из 7 продуктов, которые он купил. Определить, хватит ли Пете
денег для покупки данных продуктов. ( Паскаль )
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
