Составить блок-схему вычисления стоимости покупки с учетом скидки: при покупке товара на сумму больше 500 руб. предоставляется скидка 10 %. В дан уже составленный алгоритм, по нему составить блок-схему.

Алгоритм

1. Ввод чисел a, b

2. Вычисление стоимости покупки S=a*b

3. Проверка условия: Если S>500, то S=S*0.9

4. Вывод S

5. Конец

Предположим, что последовательность же задана, то есть вводить ее мы не будем. Последовательность представляет собой массив чисел а.
n:=1;  k:=0;
for i:=1 to 100 do if (a[i]<0) then k:=k+1; проверяем наличие отрицательных
if (k=0) then writeln("Отрицательных нет.") else begin
for i:=1 to 100 do if (a[i]<0) then n:=a[i]; находим хотя бы один отрицательный
for i:=1 to 100 do if ((a[i]<0) AND (a[i]>n) then n:=a[i]; находим наибольший отрицательный
writeln("Наибольшее из отрицательных чисел данной последовательности - ",n);
end;
end.

1. Система программирования — это система для разработки новых программ на конкретном языке программирования.
2.Системные программы выполняются вместе с прикладными и служат для управления ресурсами компьютера — центральным процессором, памятью, вводом-выводом.Это программы общего пользования, которые предназначены для всех пользователей компьютера. Системное программное обеспечение разрабатывается так, чтобы компьютер мог эффективно выполнять прикладные программы.
3.Программа на Паскале  
Program Summa;  
  Type Mas = Array [1 .. 100] of Real; 
  Var A   : Mas; 
          i, n: Integer; 
          S   : Real; 
BEGIN 
    Write('n = ');   ReadLn(n); 
    For  i : = 1 to n do 
        begin 
          Write('A[', i, '] = '); 
          ReadLn(A[i]); 
        end; 

    S : = 0; 
    For  i : = 1 to n do 
          S : = S + A[i]; 
    WriteLn('S = ', S:8:2); 
END.