Question

Нужно сделать блок схему  var a,n,s,i:integer; begin   readln(n); //ввод количества членов последовательности   for i:=1 to n do begin     readln(a); //ввод очередного числа     if a mod 10 = 4 then s:=s+a; //число оканчивается 4   end;   writeln (s); //Вывод суммы оканчивающихся на 4 end.

Answer 1

......................................................................

Answer 2

Данная блок-схема представляет алгоритм для вычисления суммы чисел, оканчивающихся на 4, в последовательности. Вот блок-схема, соответствующая данному алгоритму:

lessCopy code
┌─────────┐
│ Ввод n  │
└───┬─────┘
    │
    v
┌───────────┐
│ i := 1    │
└───┬───────┘
    │
    v
┌───────────┐
│ i > n?    │
└───┬───────┘
    │
    ├─╮
    │ │
    v v
┌─────────┐
│ Ввод a  │
└───┬─────┘
    │
    v
┌────────────────┐
│ a mod 10 = 4?  │
└───┬────────────┘
    │
    ├─╮
    │ │
    v v
┌────────┐
│ s := s+a │
└───┬────┘
    │
    v
┌───────────┐
│ i := i + 1│
└───┬───────┘
    │
    v
┌──────────┐
│ i > n?   │
└───┬──────┘
    │
    ├─╮
    │ │
    v v
┌──────────┐
│ Вывод s  │
└──────────┘

Надеюсь, это поможет вам создать нужную блок-схему.