Напишите программу заполнения массива а[1: 50] числом - вопрос №72788161501 от nastyazhovnirenko 10.05.2023 05:26

Question

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

nastyazhovnirenko · Answer

// 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.