Напишите программку заполнения массива А[1:50] числом 1

Напишите программу наполнения массива А[1:50] числом 1

Задать свой вопрос
Женек Берспиде-Винер
Так ведь есть теснее программка? В чём с ней неувязка?
Папиткова Виктория
То, что вы писали? Там было по нахождению суммы..
Степан Убогов
Так там массив заполняется единицами. A[i]:=1; - в этой строке
Амина Урыкова
Аа)) ладно) спасибо
1 ответ
// PascalABC.NET 3.2, сборка 1401 от 14.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrFill(50,1); a.Println
end.

Замечание: приобретенный массив имеет 50 частей, но индексы [0..49]

2. "Школьный вариант"
var
  a:array[1..50] of integer;
  i:integer;

begin
  for i:=1 to 50 do begin
    a[i]:=1;
    Write(a[i]:2)
    end;
  Writeln
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт