1) var a: array [1..10] of integer; i, m: integer; begin for i := 1 to 10 do begin a[i] := random(20); writeln('[', i, '] => ', a[i]); if (a[i] mod 2 = 0) then m := m + a[i]; end; writeln(m); end.
2) var a: array [1..10] of integer; i, m: integer; begin m := 1; for i := 1 to 10 do begin a[i] := random(20); writeln('[', i, '] => ', a[i]); if (a[i] mod 2 = 1) then m := m * a[i]; end; writeln(m); end.
3) var a: array [1..10] of integer; i, m: integer; begin m := 1; for i := 1 to 10 do begin a[i] := random(20); writeln('[', i, '] => ', a[i]); m := m + a[i]; end; writeln(m / 10); end.
4) var a: array [1..10] of integer; i, m, c: integer; begin m := 1; for i := 1 to 10 do begin a[i] := random(20); writeln('[', i, '] => ', a[i]); if (a[i] mod 2 = 0) then begin m := m + a[i]; c := c + 1; end; end; if (c > 0) then writeln(m / c); end.
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.