Дан массив a(m), m ≤ 20.найти сумму s его положительных элементов. все отрицательные элементы удвоить. вывести на печать исходный массив, переформированный массив и число s.

For i: =1 to m do begin if (-a[m]< > a[m]) then s: =s+1; else a[m]: =a[m]*2; writeln(a[m],' '); end; writeln(s);

Var max,min,i,x: integer; m: array[10..20] of integer; begin min: =10; max: =10; randomize; for i: =10 to 20 do m[i]: =random(10)+10; for i: =10 to 20 do write(m[i],' '); writeln; for i: =10 to 20 do begin if ( m[i] mod 2) = 0 then m[i]: =m[i]+1; end; for i: =10 to 20 do write(m[i],' '); writeln; end. 2) var max,min,i,x: integer; m: array[10..20] of integer; begin min: =10; max: =10; randomize; for i: =10 to 20 do m[i]: =random(10)+10; for i: =10 to 20 do write(m[i],' '); writeln; for i: =10 to 20 do begin if ( m[i] mod 2) = 0 then m[i]: =0 else m[i]: =m[i]*3; end; for i: =10 to 20 do write(m[i],' '); writeln; end.

Var  i,n : longint;   c   : array [1..100] of char; begin      readln(n);   for i: =1 to n do readln(c[i]);   for i: =1 to n do     if (c[i]< > '1')   and         (c[i]< > '2') and         (c[i]< > '3') and         (c[i]< > '4') and         (c[i]< > '5') and         (c[i]< > '6') and         (c[i]< > '7') and         (c[i]< > '8') and         (c[i]< > '9') and         (c[i]< > '0')       then writeln(c[i]); end.