Дан массив из 20 действительных чисел, определить среднее арифметическое элементов с четными индаксами и среднее арифметическое с нечетными индаксами

var a: array [1..20] of integer; i,s1,s2: integer;

begin

for i: =1 to 20 do begin

                              writeln('введите элемент ',i); read(a[i]);

                                if i mod 2=0 then s1: =s1+a[i] else

                                                            s2: =s2+a[i];

                          end;

writeln('среднее ариф. четных ',s1/20,'; а нечетных ',s2/20);

readln;

end.

 

ну как всегда: вопросы - в личку)

// pascalabc.net 3.0, версия 1066 const   mm=50;   nn=50; var   n,m,i,j,k1,k2,p: integer;   s1,s2,s3: longint;   a: array[1..mm,1..nn] of integer; begin   write('число строк и столбцов массива: '); read(m,n);   write('значение p: '); read(p);   writeln('*** сгенерированный массив ***');   randomize;   s1: =0; s2: =0; s3: =0; k1: =0; k2: =0;   for i: =1 to m do begin       for j: =1 to n do begin           a[i,j]: =random(101)-50;           write(a[i,j]: 4);           if a[i,j]> 30 then s1: =s1+a[i,j];           if odd(a[i,j]) then inc(k1)           else begin s2: =s2+a[i,j]; inc(k2) end;           if i+j=p then s3: =s3+a[i,j]           end;       writeln   end;   writeln('сумма элементов массива, больших 30: ',s1);   writeln('количество нечетных элементов массива: ',k1);   writeln('среднее арифметическое четных элементов массива: ',s2/k2);   writeln('сумма элементов массива c суммой индексов ',p,': ',s3) end. тестовое решение: число строк и столбцов массива: 8 10 значение p: 13 *** сгенерированный массив ***   -19 -39 -46  12  41  44 -44  21  11  25   13 -22    2  36  21 -42  34  15    5  25   -6  -3 -33 -29  47 -44  33    5  27  23   14  46  39 -35 -39  -1 -50  49    1  13   -4 -14  28  40 -34  48    0  -9 -36  12   -4 -20  35  45 -21  35  44  33  15  34   -40    2  44  38 -40  18 -11 -14  24 -28   -42  36 -37  42 -21 -43  19 -22 -45  49 сумма элементов массива, больших 30: 892 количество нечетных элементов массива: 40 среднее арифметическое четных элементов массива: 1.15 сумма элементов массива c суммой индексов 13: 56

Program matrixmax var a : array [1..3,  1..4] of integer b : array [1..3] of integer max,  i,  j :   integer begin crt; for i: =1 to 3 do  begin for j: =1 to 4 do begin read  (a[i,  j]);   // вводим  элементы  в  массив a[1..3,  1..4] end; writeln; // делаем пустой перевод строки end; for i: =1 to 3 do  begin b[i] : = a[i,  1]; for j: =1 to 4 do begin if a[i,  j] > b[i] then b[i] : = a[i,  j]; //  находим  максимальный  элемент  в  каждой  строке  и записываем в b[1..3] end; end; max : = b[1]; for i: =1 to 3 do if b[i] > max then max  : = b[i]; // находим максимальный элемент из максимальных элементов writeln (max); // выводим его на экран end.