Дан массив Х (N, N). Найти количество положительных элементов матрицы, лежащих на главной диагонали (элементы главной диагонали с индексами (1,1), (2,2) и т. д.) Паскаль

Question

Информатика

Наркис

28 июля, 01:50

Дан массив Х (N, N). Найти количество положительных элементов матрицы, лежащих на главной диагонали (элементы главной диагонали с индексами (1,1), (2,2) и т. д.) Паскаль

+5

Ответы (1)

Знаете ответ на вопрос?

Мишата · Answer 1

Procedure TForm1. Button1Click (Sender: TObject) ;

var

i, k : integer;

x : array [1 ... 10,1 ... 10] of Integer;

begin

k : = 0;

for i:=1 to 10 do

begin

x[i, i] : = Random (100) - 50;

if (x[i, i]>0) then

inc (k) ;

end;

Label1. Caption : = 'Количество положительных элементов = ' + inttostr (k) ;

end;