Randomize

for i:=1 to 3 do

Begin

for j:=1 to 4 do

Begin

a[i,j] := Random(10);

write (a[i,j] ,’ ‘);

end;

writeln;

end;

используются числа в промежутке от 0 до 9

Randomize

for i:=1 to 3 do

Begin

for j:=1 to 4 do

Begin

a[i,j] := Random(30)-10;

write (a[i,j] ,’ ‘);

end;

writeln;

end;

Используются числа в промежутке от -10 до 19, (30-количественный диапазон чисел, 10-сдвиг по числовой шкале относительно 0 указывающий с какого числа используются числа.

3)Вывод на экран значения элементов массива по строкам:

Вычисление суммы, произведения, количества элементов массива.

Вычисление суммы элементов.

Summa := 0;

Fori:=1 to3do

Forо:=1 to4do

Summa := summa + a[i,j];

Вычисление произведения элементов.

proiz := 1;

Fori:=1 to3do

Forо:=1 to4do

Proiz := Proiz * a[i,j];

Вычисление суммы (произведения) элементов, удовлетворяющих заданному условию.

Summa := 0;

Fori:=1 tondo

Forj:=1 tomdo

Ifa[i,j] >0ThenSumma := summa + a[i,j];

Нахождение количества элементов, удовлетворяющих заданному условию.

найти количество положительных элементов в каждой строке массива.

Fori:=1 tondo

Begin

Коlich:=0;

Forj:=1 tomdo

Ifa[i,j] > 0Then

kolich:= kolich + 1;

Writeln(‘Колич. Положит. Знач. в’,i,‘строке =’,kolich);

End;

найти количество чётных элементов массива.

Коlich:=0;

Fori:=1 tondo

Forj:=1 tomdo

Ifa[i,j] mod 2 = 0Then

kolich:= kolich + 1;

Writeln(‘ Положит. Знач. ’,kolich);