Лабораторкаа

[GIrla]

Помогите решить,из-за болезни много долгов,завал.

[B]задача 1[/B].Дан целый массив А размера N(<=15) переписать в новый целочисленный массив В все элементы с нечетными порядковыми номерами (1,3,…) и вывести размер полученного массива В и его содержащие. Условный оператор не использовать
[B]задача 2[/B]. Дана квадратная матрица А порядка М. Найти среднее арифметическое элементов ее побочной диагонали, т.е. диагонали, содержащие следующие элементы: А1,М, А2,М-1, А3,М-2, … , АМ,1

[VIK_aka_TOR]

ориентировочно первая задача...

var
a:array [1..15] of integer;
b:array [1..8] of integer;
n,i,n1: integer;
begin
readln(n);
for i:=1 to n do
a[i]:= i;
n1:=1;
while ((n1*2 - 1) <= n) do
  begin
    b[n1] := a[n1*2 - 1];
    inc(n1);
  end;
 writeln(n1 -1); // кол-во элементов в b
 for i:=1 to n1 - 1 do
    writeln(b[i]);    
end.

в случае чего, на динамические перепишите сами... )

[VIK_aka_TOR]

вторая:

var
a:array [1..10,1..10] of integer;
m,i,j, sum: integer;
begin
readln(m);
for i:=1 to m do
  begin
  for j:=1 to m do
    begin
    a[i,j]:= random(20); // рандомные значения
    write(a[i,j] :3);// вывод
    end;
   writeln;
  end; 
  for i:=1 to m do
  sum := sum + a[m - i + 1, i]; // высчитываем сумму побочной
  writeln(sum/m); // среднее арифм побочной диаганали
end.