Question

Написать программу, формирующую линейный массив A[1..40] по следющему правилу: первые двадцать элементов массива равняются 1, остальные двадцать - 0.
pascal

Answer 1

const N=40;var A: array[1..N] of integer;i:integer;beginfor i:=1 to 20 do A[i]:=1;for i:=21 to N doA[i]:=0;for i:=1 to N dowrite(A[i]:3);end.

Answer 2

const N=40;
var A: array[1..N] of integer;
i:integer;
begin
for i:=1 to 20 do
A[i]:=1;
for i:=21 to N do
A[i]:=0;
for i:=1 to N do
write(A[i]:3);
end.