Задача: Заполнить двумерный массив положительными и отрицательными числами. Вывести количество положительных элементов массива во всех строках. Использовать массив размерностью 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