Составить программы для паскаля для следующих задач: 1. В массиве из 10 элементов подсчитать количество нечетных элементов

1.

var a: array[1..10] of integer;

i, n: integer;

begin

for i:=1 to 10 do readln(a[i]);

for i:=1 to 10 do if a[i] mod 2 > 0 then n := n + 1;

writeln(n);

end.

2. 

var a: array[1..10] of integer;

i, s: integer;

begin

for i:=1 to 10 do readln(a[i]);

for i:=1 to 10 do if a[i] > 2 then s := s + (a[i]*a[i]);

writeln(s);

end.

3.

var a: array[1..10] of integer;

i, n: integer;

begin

for i:=1 to 10 do readln(a[i]);

for i:=1 to 10 do if a[i] mod 2 > 0 then n := n + 1;

writeln(n);

end.

4.

var a: array[1..10] of real;

i : integer;

begin

for i:=1 to 10 do readln(a[i]);

for i:=1 to 10 do writeln(a[i]);

end.

5. 

var a: array[1..10] of integer;

b: array[1..10] of integer;

c: array[1..10] of integer;

i: integer;

begin

for i:=1 to 10 do readln(a[i]);

for i:=1 to 10 do readln(b[i]);

for i:=1 to 10 do c[i]:=a[i]-b[i];

for i:= 1 to 10 do write(c[i]:4);

end.

6. 

 

var a: array[1..10] of real;

i, amax, aimax : integer;

begin

for i:=1 to 10 do readln(a[i]);

amax := a[1];for i := 1 to 10 do if a[i] > amax then beginamax := a[i];aimax := i;end; writeln(amax, aimax);

end.