• программирование
    Тема :процедуры
    Дан массив, содержащий нулевые элементы. Создать массив из номеров этих элементов.

Ответы 2

  • спасибо.
  • Pascalconst     n = 15;type    mas = array [1..n] of integer;     var   m : mas;   i : integer;  procedure inic (var a : mas);  var    i : integer;  begin   for i := 1 to n do    a[i] := 0;  end;   procedure num (var a : mas);  var    i : integer; begin   for i := 1 to n do     a[i] := i;  end;  procedure w (var a : mas);  var    i : integer;      begin   for i := 1 to n do    writeln (m[i]);  readln ();  end;begin  inic (m);  num(m);  w(m); end.
    • Автор:

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

Войти через Google

или

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

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

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