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

1. В массиве из 10 элементов подсчитать количество нечетных элементов

2. Вычислить сумму квадратов элементов, больших 2. Массив состоит из 5 элементов действительного типа.

3. Даны два массива. Сформировать третий массив, каждый элемент которого равен разности соответствующих элементов известных массивов.

4. Определить значение и порядковых номер максимального элемента.

Program z1;

uses crt;

const n=10;

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

i, s: integer;

begin

clrscr;

s:=0;

writeln ('Введите элементы массива') ;

for i:=1 to n do begin

read (a[i]) ; / / ввод элементов в одну строку через пробел

if a[i] mod 2 = 1 then inc (s)

end;

writeln (s) ;

readkey;

end.

program z2;

uses crt;

const n=5;

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

i: integer;

s: real;

begin

clrscr;

s:=0;

writeln ('Введите элементы массива') ;

for i:=1 to n do begin

read (a[i]) ; / / ввод элементов в одну строку через пробел

if a[i]>2 then s:=s+sqr (a[i])

end;

writeln (s) ;

readkey;

end.

program z3;

uses crt;

const n=5;

var a1, a2, a3: array[1 ... n] of integer;

i: integer;

begin

clrscr;

randomize;

for i:=1 to n do begin

a1[i]: = random (100) + 1; / / рандомное число от 1 до 100

a2[i]: = random (100) + 1;

a3[i]:=a1[i]-a2[i];

writeln (a1[i], ' ', a2[i], ' ', a3[i]) ;

end;

readkey;

end.

program z4;

uses crt;

const n=10;

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

max, c, i: integer;

begin

clrscr;

writeln ('Введите элементы массива') ;

for i:=1 to n do read (a[i]) ;

max:=a[i];

for i:=1 to n do begin

if max
end

end;

writeln ('') ;

writeln ('max=', max, ' номер=', c) ;

readkey;

end.