Помогите решить задачи по информатике. Условия Дан массив вещественных чилех X(12) все...

Question

Помогите решить задачи по информатике. Условия Дан массив вещественных чилех X(12) все его элементы уменьшить на 23. 2)Дан массив целых чисел, все четные элементы заменить на их квадраты, а все не четные удвоить. 3)В массиве храниться информация о стоимости 1кг 20 видов конфет. Определить, сколько стоят самые дешевые конфеты. 4)Найти число пар "соседних" элементов массива, являющихся не четными числами. Сразу говорю я 9 класс,и некоторые заумные операторы не обьясняли!

Answer 1

1) 

var X:array[12] of real;

i: integer;

 

begin

   for i:=1 to 12 do

   begin

      readln(X[i]);

      X[i]:=X[i]-23;

   end;

   for i:=1 to 12 do

      writeln(X[i])

end.

2)

var M:array[100] of integer;

i: integer;

begin

   for i:=1 to 100 do begin

      readln(M[i]);

       if(M[i] mod 2=0) then M[i]:=M[i]*M[i]

       else  M[i]=2*M[i];

   end;   

   for i:=1 to 100 do

      writeln(M[i]);

end.

3)

var price:array[20] of real;

i:integer;

minprice:real;

begin

   minprice:=10000;

   for i:=1 to 20 do

   begin

      readln(price[i]);

      if (price[i]

   end;

   writeln(minprice)

end.

4) 

var M:array[100] of integer;

i, counter: integer;

begin

   readln(M[1]);

   counter:=0;

   for i:=2 to 100 do begin

      readln(M[i]);

      if ((M[i] mod 2=1) and (M[i-1] mod 2=1)) then inc(counter);

   end;

   writeln(counter)

end.