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

Напишите программу заполнения массива А[1:50] числом 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы