Question

Массив в paskal abc. каждому элементу, стоящему на 1, 4, 7-м и т.д., местах, присваивается число 0, остальным - число 3.информатика

Answer 1

Const n=20;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
 if i mod 3 = 1 then a[i]:=0 else a[i]:=3;
for i:=1 to n do write(a[i]:2);
writeln;
end.

Результат:
 0 3 3 0 3 3 0 3 3 0 3 3 0 3 3 0 3 3 0 3

Answer 2

Для решения данной задачи в Pascal ABC, вам потребуется создать массив и присвоить определенные значения его элементам. Каждому элементу, стоящему на позициях 1, 4, 7 и т.д., нужно присвоить число 0, а остальным элементам - число 3.

Вот пример кода, который решает данную задачу:

program ArrayExample;
var
  arr: array[1..10] of Integer; // Создаем массив из 10 элементов
  i: Integer;
begin
  // Присваиваем значения элементам массива
  for i := 1 to 10 do
  begin
    if (i mod 3 = 1) then // Если позиция элемента равна 1, 4, 7 и т.д.
      arr[i] := 0 // Присваиваем число 0
    else
      arr[i] := 3; // Присваиваем число 3
  end;

// Выводим значения элементов массива
  for i := 1 to 10 do
    Write(arr[i], ' ');

Readln;
end.

В этом примере мы создаем массив `arr` из 10 элементов и используем цикл `for` для присвоения значений элементам массива. Если позиция элемента делится на 3 с остатком 1 (т.е. позиции 1, 4, 7 и т.д.), мы присваиваем элементу значение 0, в противном случае - значение 3. Затем мы выводим значения элементов массива на экран.

Примечание: Пожалуйста, учтите, что в данном примере мы использовали массив из 10 элементов для наглядности. Вы можете изменить размер массива в соответствии с вашими потребностями.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их.