Напиши программу по блок схеме (паскаль)

var

  a: array [1..12] of integer;   //одномерный массив из 12 целых чисел

  i: integer;  

 

begin

  for i: = 1 to 12 do   //вводим элементы массива с клавиатуры

  begin

    writeln('введите a[', i, ']');

    readln(a[i]);

  end;

  write('исходный массив:   ');   //выводим исходный массив

  for i: = 1 to 12 do

    write(a[i], '   ');

  writeln;   //перевод на новую строку

  write('измененный массив:   ');

  for i: = 1 to 12 do   {изменяем все положительные элементы на 5 и распечатываем полученный массив}

  begin

    if a[i] > 0 then a[i]: = 5;  

    write(a[i], '   ');

  end;

  writeln;   {переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end.

если все правильно, отметь решение как лучшее)

     

1)

var

  a, b, c: real;

  ide: boolean;

 

begin

  ide: = false;

  writeln('введите 2 числа');

  readln(a, b);

  c: = a;

  if (ide = false) and (a < b) then 

  begin

    a: = a + b;

    b: = c * b;

    ide: = true;

    writeln('a = ', a, ', b = ', b);

  end;

  if (ide = false) and (b < a) then 

  begin

    a: = a * b;

    b: = a + b;

    ide: = true;

    writeln('a = ', a, ', b = ', b);

  end;

  if (ide = false) and (a = b) then

  begin

    writeln('числа равны');

    ide: = true;

  end;

end.

2)

var

  a, b: real;

 

begin

  writeln('введите 2 числа');

  readln(a, b);

  if a < b then a: = 0;

  writeln('a = ', a, ', b = ', b);

end.

3)

var

  k, b: real;

 

begin

  writeln('введите цену журнала');

  readln(k);

  writeln('введите, сколько у покупателя денег');

  readln(b);

  if b > k then writeln('покупатель получит ', b - k, ' р сдачи');

  if b = k then writeln('покупатель не получит сдачи');

  if b < k then writeln('покупателю придется доплатить ', k - b, ' р');

end.

4)

var

  a: 100000..999999;

  a1, a2, a3, a4, a5, a6: 1..9;

 

begin

  writeln('введите шестизначное число');

  readln(a);

  a1: = a div 100000;

  a2: = (a mod 100000) div 10000;

  a3: = (a mod 10000) div 1000;

  a4: = (a mod 1000) div 100;

  a5: = (a mod 100) div 10;

  a6: = a mod 10;

  if (a1 + a2 + a3) = (a4 + a5 + a6) then writeln('число является счастливым')

  else writeln('число не является счастливым');

end.

5)

var

  a, b: integer;

 

begin

  writeln('введите числа a и b');

  readln(a, b);

  if b mod a = 0 then writeln('число ', a, ' является делителем числа ', b)

  else writeln('число ', a, ' не является делителем числа ', b);

end.

если все правильно, отметь решение как лучшее)

если возникнут вопросы - задавай