Задние нужно выполнить в отдельном файле ворда побыстрее.

var

a:array[0..9, 0..9]of integer;

i, j, s : integer;

begin

randomize;

for i:=0 to 9 do begin

for j:= 0 to 9 do begin

a[i,j]:= random(50);

write(a[i,j],' ')

end;

writeln();

end;

s:=0;

for i:=0 to 9 do

if a[i,9-i] mod 3 = 0 then

s:=s+a[i,9-i];

writeln(s)

end.

Объяснение:

var

a:array[0..9, 0..9]of integer;

i, j, s : integer;

begin

randomize;

for i:=0 to 9 do begin

for j:= 0 to 9 do begin

a[i,j]:= random(50);

write(a[i,j],' ')

end;

writeln();

end;

s:=0;

for i:=0 to 9 do

if a[i,9-i] mod 3 = 0 then

s:=s+a[i,9-i];

writeln(s)

end.

Var i:integer;M:array[1..10]of integer;A,F:real;B,C:integer;begin
writeln('Введите элементы массива: ');for i:=1 to 10 doreadln(M[i]); //основной массивA:=0; //сумма от.элементовif M[i] < 0 then A:=A+M[i];writeln('Сумма отрицательных элементов массива: ',A);B:=0; //кол-во чётных элементов массиваif M[i] mod 2 = 0 then B:=B+1;writeln('Количество чётных элементов массива: ',B);i:=1;if(M[i]>0)theni:=i+1; C:=i;writeln('Номер первого положительного элемента массива: ',C);F:=C+((A+B)/(10-C+A));writeln('Значение формулы: ',F);end.