Question

Написать программу выводящую все элементы массива сформированного по условию for i := 1 to 10 do if i mod 2 = 0 then A[i] :=i * 2 else A[i] :=0;

Answer 1

var a:array[1..10] of integer;

i: integer;

begin

for i:=1 to 10 do

begin

if i mod 2 = 0 then A[i] :=i * 2

else A[i] :=0;

write (a[i]:3)

end

end.

Answer 2

Для написания программы, которая формирует массив по указанному условию и выводит его элементы, можно использовать любой язык программирования. Ниже приведен пример кода на языке Pascal:

pascalCopy code
program GenerateAndPrintArray;
var
  A: array[1..10] of Integer;
  i: Integer;

begin
  for i := 1 to 10 do
  begin
    if i mod 2 = 0 then
      A[i] := i * 2
    else
      A[i] := 0;
  end;

  writeln('Сформированный массив:');
  for i := 1 to 10 do
  begin
    writeln('A[', i, '] = ', A[i]);
  end;
end.

В этой программе мы объявляем массив A с 10 элементами и циклически проходимся по нему от 1 до 10. Внутри цикла проверяем условие i mod 2 = 0 для каждого значения i. Если i четное, то присваиваем элементу массива значение i * 2, иначе - значение 0.

После формирования массива, мы выводим его элементы на экран с помощью вложенного цикла for и процедуры writeln.