3на программирование в паскаль за 30 1.задан массив а, состоящий из n чисел. найти среднее арифметическое его элементов. элементы вводятся с клавиатуры. 2.найти сумму элементов массива с четными номерами, содержащего n элементов. элементы вводятся с клавиатуры. 3. дан одномерный массив, значения элементов которого вводятся с клавиатуры. выяснить, каких элементов больше - положительных или отрицательных и насколько. на экран вывести исходный массив и полученный результат.

//pascalabc.net 3.2 {1} begin var a: =readarrinteger('вводите: ', readinteger('n =')); write ('ср. арифметическое: ', a.average); end. {2} begin var a: =readarrinteger('водите: ', readinteger('n =')); var sum: =0; for var i: =0 to length(a)-1 do if i.isodd then sum+=a[i]; write ('сумма: ', sum); end. {3} begin var a: =readarrinteger('вводите: ', readinteger('кол-во элементов: ')); var otr: =0; var pol: =0; for var i: =0 to length(a)-1 do if a[i]< 0 then otr+=1 else pol+=1; write('массив: '); a.println; if otr=pol then write ('отрицательных и положительных элементов равное кол-во') else  if otr> pol then write('отрицательных больше на ', otr-pol) else write ('положительных больше на ', pol-otr); end.

program naoborot;

uses crt;

var n,a,b: integer;

begin

clrscr;

write('введите натуральное число: ');

readln(x);

n: =x;

while n> =1 do

begin

a: =n mod 10;

n: =n div 10;

b: =b*10+a;

end;

write('прочтение цифр числа справа налево: ',b)

end.