Дан массив А(м), м меньше или равно 20. Вывести на печать сумму элементов массива. если она превосходит число 50, в противном случае вывести в печать исходный массив.

Program summa;  Uses crt;  Const m=20;  Var a:array[1..m] of integer;      i,s:integer;  Begin    For i:=1 to m do     a[i]:=random(101)-50;    For i:=1 to m do     s:=s+a[i];    If s>50 then writeln('Сумма = ',s) else     for i:= 1 to m do       Writeln('Элемент массива №',i,' равен ',a[i]);  End.   или   Program summa;  Uses crt;  Const m=20;  Var a:array[1..m] of integer;      i,s:integer;  Begin    For i:=1 to m do     Readln(a[i]); clrscr;    For i:=1 to m do     s:=s+a[i];    If s>50 then writeln('Сумма = ',s) else     for i:= 1 to m do       Writeln('Элемент массива №',i,' равен ',a[i]);  End.