Написать программу на паскале и к ней блок схем объясняющий её, с пояснениями. "найти сумму и произведение элементов одномерного массива. в массиве 20 чисел"

Вот программа: var a: array[1..20] of real; i: integer; s,p: real; begin s: =0; p: =1; writeln('введите 20 чисел: '); for i: = 1 to 20 do       begin       read(a[i]);       s: =s+a[i];       p: =p*a[i];       end; writeln('s = ',s); writeln('p = ',p); end. вот блок-схема:

Если N*A ≤ Bто хватит. В противном случае - нет

PicsArt, Photoshop, Instagram