Найти сумму всех элементов массива вещественных чисел, больших заданного числа - Turbo Pascal - Ответ 1764734

var
  i: Integer;
  Arr: Array of Real;
  summ, my_numeral: Real;
begin
  SetLength(arr, 20);
  for i := 0 to High(arr) do
    arr[i] := 50 + 50 * Random;
  my_numeral := 75; // Заданное число. Ты его сам потом сюда определишь.
  // Допустим, my_numeral := StrToFloat(Edit1.Text); - из едита
  summ := 0.0;
  for i := 0 to High(arr) do
    If arr[i] > my_numeral then
      summ := summ + arr[i];
  ShowMessage('Сумма элементов, больших заданного: ' + FloatToStr(summ));
end;

var
  i, min_index: Integer;
begin
  min_index := 0;
  for i := 1 to High(arr) do
    If arr[i] < arr[min_index] then
        min_index := i;
  Delete(arr, 1, min_index + 1);
end;

Delete(arr, 1, min_index);

var
  s: String; // строка со словами!
  i: Integer;
begin
  s := '';
  If not InputQuery('Ввод', 'Введите сюда слово', s) then
    exit;
i := 1;
  While i <= Length(s) do
    If s[i] = ' ' then
      begin
        Insert(',', s, i)
        inc(i, 2);
      end
    else
      inc(i);
  ShowMessage(s);
end;

var
  matrix: Аrray[1..5, 1..6] of real;
  i: Integer;
  buf: Real;
 begin
   for i := 1 to 6 do
     begin
       buf := matrix[1, i];
       matrix[1, i] := matrix[5, i];
       matrix[5, i] := buf;
     end;
 end;