Дан одномерный массив размером м. подсчитать сумму чисел кратных 5 и произведение остальных элементов. ввод данных осуществлять с клавиатуры, вывод исходного массива и результатов на экран. составить блок схему

Var a: array[1..1000]of integer; b: array[1..1000]of integer; i,n,summ: integer; begin writeln('введите кол-во цифр'); readln(n); writeln('введите цифры'); for i: =1 to n do readln(a[i]); for i: =1 to n do begin if (a[i]> =10)and (a[i]< 100) then b[i]: =a[i]; end; for i: =1 to n do begin if (a[i]> =100) and (a[i]< 1000) and (a[i] mod 4=0) then summ: =summ+a[i]; end; for i: =1 to n do begin if b[i]> 0 then write(b[i],' '); end; writeln; write('сумма 3-х значных чисел кратных 4=',summ); end.

Pascal: var n,sum: integer; begin   sum: =0;   write ('n = ');   readln (n);   while n < > 0 do     begin     sum: =sum+(n mod 10);     n: =n div 10;     end;   if sum = 10 then writeln ('yes') else writeln ('no'); end. c++: #include < iostream> using namespace std; int main() {   int n,sum = 0;   cout < < "n = ";   cin > > n;   while (n! =0)   {     sum+=n%10;     n/=10;   }   if (sum==10)     cout < < "yes" < < endl;   else cout < < "no" < < endl;   return 0; }