Составить блок-схему и программу, вычисляющую сумму квадратов четных чисел. использовать цикл с предусловием или с постусловием.

Это все условие? не хватает условия

1) const n=10; var a: array[1..n]of integer; i,s: integer; begin     for i: =1 to n do           begin               a[i]: =random(41)-20;               write(a[i]: 4);                     if a[i]< 0 then                           s: =s+a[i];             end; writeln; writeln(' s=  ',s); end. 2) const n=20; var i,s: integer; a: array[1..n]of integer; begin     for i: =1 to n do           begin               a[i]: =random(11)+15;               write(a[i]: 4);                   if a[i]mod 2=0 then                         s: =s+a[i];           end; writeln; writeln('s =  ',s); end.

Const n=5; m=7; var a: array[1..n]of integer; b: array[1..m]of integer; s,s2: real; i: integer; begin       for i: =1 to n do             begin                             a[i]: =random(50);                 write(a[i]: 4);                   s: =s+a[i];             end; writeln; writeln(':   ',trunc(s/n)); for i: =1 to m do     begin           b[i]: =random(70);           write(b[i]: 4);           s2: =s2+b[i];     end; writeln; writeln(':   ',trunc(s2/m)); writeln; writeln('s:   ',trunc(s/n)+trunc(s2/m)); end.