1)вычислить среднее арифметическое массива. 2)определить количество четных элементов. 3)вычислить сумму элементов с нечетными номерами.

program a1; uses crt; const n=8; var a: array[1..n] of integer; ch,s: integer; sr: real; i: byte; beginwriteln('массив'); for i: =1 to n dobegin a[i]: =random(101)-50; writeln(a[i]); end; for i: =1 to n dos: =s+a[i]; sr: =s/n; for i: =1 to n doif a[i] mod 2 = 0 then ch: =ch+1; s: =0; for i: =1 to n doif i mod 2 < > 0 then s: =s+a[i]; writeln('ответы'); writeln('1) среднее значение элементов массива = ', sr); writeln('2) количество чётных элементов = ', ch); writeln('3) сумма элементов массива с нечётными номерами = ', s); end.

1)

const nn=50; vara: array [1..nn] of integer; i,n: integer; s: real; begin  write('введите количество элементов массива: ');   readln(n);   s: =0;   for i: = 1 to n do  begin      readln(a[i]);       s: =s+a[i];   end;   writeln('среднее арифметическое массива = ',s/n)  end.

 

2)

const nn=50; vara: array [1..nn] of integer; i,n: integer; s: real; begin  write('введите количество элементов массива: ');   readln(n);   s: =0;   for i: = 1 to n do  begin      readln(a[i]);       if a[i] mod 2 =0 then s: =s+1;   end;   writeln('количество четных элементов = ',s)  end.

 

3)

const nn=50; vara: array [1..nn] of integer; i,n: integer; s: real; begin  write('введите количество элементов массива: ');   readln(n);   s: =0;   for i: = 1 to n do  begin      readln(a[i]);       if i mod 2 =1 then s: =s+a[i];   end;   writeln('cумма элементов с нечетными номерами = ',s)  end.

Вроде ! program project4 {$apptype console}  uses        sysutils;         var  a: array[0..100,0..100]of integer;   i,j,n,m: integer;   begin  read(n,m);   i: =0; j: =-1;   while i< n do begin  a[i,j]: =i*j;   inc(j);   if j> =m then  begin j: =0; inc(i);   end;   end;   for i: =0 to n-1 do begin      for j: =0 to m-1 do        write(a[i,j],' ');         writeln;         end;       readln;       readln;   end.