• Много баллов! Задано натуральные числа n и x. Вывести на экран таблицу размером n на n, где на главной диагонали стоит число x, а на остальных местах *.
    Пример: n=4, x=3. Должно выйти так :
    3 * * *
    * 3 * *
    * * 3 *
    * * * 3
    Язык Pascal

Ответы 6

  • var i,j, m,n,x:integer;beginreadln(m,n,x);for j:=1 to n dobeginfor i:=1 to m doend;if m=n thenbeginwrite ('x ');writeln();end;elsebeginwrite('* ');writeln();end;end.
    • Автор:

      bailee
    • 5 лет назад
    • 0
  • Тут у меня ошибка. Не могу найти
  • A[i,j]:10:2 - вывод матрицы которую ты записываешь 10 - это целое число, 2 - это числа после запятой
    • Автор:

      katiexxgz
    • 5 лет назад
    • 0
  • array [1..n, 1..m] - записывается массив для матрицы. Проще даже не знаю как написать
  • Вот в этом и проблема
    • Автор:

      avery3uf8
    • 5 лет назад
    • 0
  • Ввод матрицы в ручнуюConst n = 5; m = 5; {n-строка, m-столбец} Var A: array [1..n, 1..m] of real;     i, j: integer; Begin   for i := 1 to n do for j := 1 to m do     begin       Write('A[', i, ', ', j, '] = ');       ReadLn(A[i,j])     end;   WriteLn('Исходный массив:');   for i := 1 to n do     begin       for j := 1 to m do Write(A[i,j]:10:2);       WriteLn     end;   Writeln('Главная диагональ массива А:');   for i :=1 to n do Write(A[i, i]:10:2);   WriteLn;   ReadLn; END.
    • Автор:

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

Войти через Google

или

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

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

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