1. Заполнить массив из 10 элементов последовательными натуральными числами (не с…

1) var a: array [0… 9] of integer; i: integer; begin for i: =0 to 9 do a[i]: =random (25); end.2) var a: array [0… 9] of integer; i, m: integer; begin for i: =0 to 9 do begin readln (a[i]); if (a[i] mod 2=0) then m: =m+a[i]; end; writeln (m / 10); end.3) var a: array [0… 9] of integer; i, m: integer; begin for i: =0 to 9 do begin a[i]: =random (50); writeln ('[', i, '] => ', a[i]); if (a[i] mod 2=1) and (i mod 2=0) then a[i]: =a[i]*2; end; writeln ('-'); for i: =0 to 9 do writeln ('[', i, '] => ', a[i]); end.4) var a: array [0… 9] of integer; i, m: integer; begin a[0]: =2; a[1]: =3; a[2]: =5; a[3]: =7; a[4]: =11; a[5]: =13; a[6]: =17; a[7]: =19; a[8]: =23; a[9]: =29; for i: =0 to 9 do writeln ('[', i, '] => ', a[i]); end.C последним схитрил… Но работает же=)