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

dmgkmmsdk dmgkmmsdk    2   09.07.2019 04:00    0

Ответы
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;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика