Question

СОСТАВЬТЕ ПРОГРАММУ ЗАПОЛНЕНИЯ МАССИВА В ПАСКАЛЬ ПО СЛЕДУЮЩЕМУ ПРИНЦИПУ: 0 1 1 1 0 1 0 1 0 1 1 1 0 1 1 1 0 1 0 1 0 1 1 1 0

Answer 1

Ответ:

program z;

var a: array [1..5,1..5] of integer;

i,j: integer;

begin

for i:= 1 to 5 do

begin

for j:= 1 to 5 do

begin

if (i=j) or (i+j=5+1) then a[i,j]:= 0 else a[i,j]:= 1;

write(a[i,j]:2)

end;

writeln

end

end.

Answer 2

Программа заполнения массива в Паскаль по следующему принципу:

var arr: array[1..25] of integer; i: integer;

begin for i := 1 to 25 do begin if (i mod 4 = 0) or (i mod 4 = 1) then arr[i] := 0 else arr[i] := 1; end; end.

В данной программе создается массив arr из 25 элементов. Затем происходит заполнение массива по следующему принципу: если номер элемента массива делится на 4 или даёт остаток 1 при делении на 4, то присваивается значение 0, в противном случае - 1.