Question

Даю 20 баллов! Очень срочно! Паскаль 9 класс

Answer 1

Ответ:

pascal

Объяснение:

type massiv=array[1..12] of integer;

var

 mas: massiv;

 i, x, max, maxi: integer;

 p: real;

function findx(a: massiv; x: integer): integer;

var i, col: integer;

begin

 for i := 1 to 12 do

   if a[i] = x then inc(col);

 findx := col;

end;

begin

 randomize;

 p := 1;

 max := 0;

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

 for i := 1 to 12 do

 begin

   mas[i] := random(15) + 1;

   Write(mas[i], ', ');

   p := p * mas[i];

   if mas[i] > max then

   begin

     max := mas[i];

     maxi := i;

   end;

 end;

 WriteLn;

 WriteLn('Произведение элементов массива = ', p);

 Write('Введите число Х: '); ReadLn(x);

 WriteLn('В массиве ', findx(mas, x), ' таких элементов');

 WriteLn('Максимальный элемент массива: mas[', maxi, '] = ', max);

 WriteLn('Обработанный массив:');

 for i := 1 to 12 do

 begin

   if mas[i] mod 2 = 0 then mas[i] := 0 else mas[i] := - mas[i];

   Write(mas[i], ', ');

 end;  

end.