Составить программы для паскаля для следующих задач: 1. В массиве из 10 элементов подсчитать количество нечетных элементов 2. Вычислить сумму квадратов элементов, больших 2. Массив состоит из 5 элементов действительного типа. 3. Даны два массива. Сформировать третий массив, каждый элемент которого равен разности соответствующих элементов известных массивов. 4. Определить значение и порядковых номер максимального элемента.

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 begin amax : = a[i]; aimax : = i; end; writeln (amax, aimax);

end.