Составьте программу, которая заполняет массив A[1..10] случайными целыми числами в диапазоне от 1 до 50 и вычисляет среднее арифметическое элементов с чётными значениями элементов массива.

Ну и добавить описания переменных надо. А - массив. Все переменные типа integer.

beginwriteln("Данный массив: ");for i:=1 to 10 do begina[i]:=random(50)+1; writeln(a[i]," ");if (i mod 2 = 0) then begin sr:=sr+a[i]; k:=k+1; end; end;sr:=sr/k;writeln("Среднее арифметическое элементов с четными значениями = ",sr);end.