Question

СРОЧНО СОСТАВИТЬ БЛОК СХЕМУ известны данные о стоимости каждого товара из группы. Найти общую стоимость товаров, которые стоят больше 1000 рублей.

Answer 1

Ответ:

uses crt;

var

  a,b,c,n,k,i:integer;

begin

    writeln('Введите кол-во товаров');

    readln(n);

    for i:=1 to n do

    begin

         writeln('Введите стоимость ',i,' товара');

         readln(a);

         if a>1000 then k:=k+a;

    end;

    writeln('Сумма товаров, стоимостью > 1000 рублей = ',k,' рублей');

end.