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

Ответы 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;
    • Автор:

      kolten
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years