Программа: Количество положительных элементов в двумерном массиве

Задача: Заполнить двумерный массив положительными и отрицательными числами. Вывести количество положительных элементов массива во всех строках. Использовать массив размерностью 3 на 3.

PROGRAM kolpolog;
	var i,k,s :integer;
		M	  :array[1..3,1..3] of integer;
BEGIN
	Randomize;
	s:=0;
	for i:=1 to 3 do
	  begin
		for k:=1 to 3 do
		  begin
			M[i,k]:=-random(19)+10;
			Write(M[i,k],'  ');
			if M[i,k]>0 
            then s:=s+1;
		  end;
		Writeln
	  end; // Забитие и вывод массива
	WriteLn('Количество положительных элементов во всех строках = ',s); // Положительные числа
END.

Просмотрело: 2335

Возможно, Вы искали: