//создать массив случайных чисел и вычислить сумму всех его элементов
//
//т.к. размер массива в задании не указан, делаю небольшой
var
mass:array [1..5] of integer; //Объявление переменной массива целых чисел, состоящего из 5 элементов
sum:integer; //Переменная, в которую заносится сумма значений массива
i:integer; //Переменная для цикла
begin
Randomize; //Инициализация ГСЧ
sum:=0; //Обнуление переменной (во избежание глюков)
For i:=1 to 5 do
mass[i]:=Random(999); //Присваивание i-тому элементу массива случйного числа в диапазоне от 0 до 999
For i:=1 to 5 do
sum:=sum+mass[i]; //Прибавление к переменной sum значение i-того элемента массива
Writeln('Сумма случайных значений массива: ',sum); //Вывод сообщения с суммой
Readkey; //Ожидание нажатия любой клавиши
end.

program xuinya;
Uses crt;
const n = 6;
m = 6;
var a: array[1..n,1..m] of integer;
i,j:integer;
begin
//заполнение случ числами, вывод
for i:=1 to n do begin
   for j:=1 to m do begin
      a[i,j]:=random(10);
      write(a[i,j],' ');
      end;
   writeln;
   end;
writeln;
//поиск четной строки, обнуление всех элементов
for i:=1 to n do begin
   if (i mod 2 = 0) then
      for j:=1 to m do
         a[i,j]:=0;
   end;
//вывод результата в crt
for i:=1 to n do begin
   for j:=1 to m do
      write(a[i,j],' ');
   writeln;
   end;
end.