1удаление) удалить элемент массива целых чисел, удовлетворяющие условию: остаток от деления на 3 равен 2. если таких элементов нет, выдать сообщение «элементы для удаления не найдены» 2.(вставка) в линейный массив вещественных чисел на 8-е место вставить элемент, равный сумме первых 10 элементов массива. 3.(преобразование)дан массив. поменять местами третий и максимальный элементы. если элементов с максимальным значением несколько, то в обмене должен участвовать первый из них.

var

  ch: array[1..100] of real;

  i, n: integer;

  s: real;

begin

  repeat

    inc(i); //+1  

    write($'введите {i} число: ');

    readln(ch[i]); //записываем в массив число  

  until ch[i] = 0; //проверяется условие,если число равно 0 то прекращаем ввод

  write($'введите,сколько чисел сложить: ');

  readln(n);

  writeln;

  writeln($'вы ввели {i} чисел');

  for i : = 1 to n do

  begin

    s : = ch[i] + s; //складываем числа n штук

  end;

  writeln($'сумма чисел = {s}');

end.

program rastirostok;

var h: double; //в  этой переменной храним высоту

var i: integer; // это для счетчика дней

var s: string;

begin

i : = 0;

h: =0.5;

while(h< =32) do

begin

h: = h + 0.4*h;

i: = i+1;

writeln(h: 15: 2);

end;

 

str(i,s);

writeln('количество дней: '+s);

str(h: 15: 2,s);

writeln('высота ростка: '+s);

  end.

в итоге успеет за 13 дней вырасти

расклад по дням и итог

0.70 0.98 1.37 1.92 2.69 3.76 5.27 7.38 10.33 14.46 20.25 28.35 39.69 количество дней: 13 высота ростка: 39.69