В массиве из 10 целых чисел подсчитать сумму элементов более чем в 2 раза превышающих минимальный - Pascal

Формулировка задачи:

Помогите написать программу: В массиве из 10 целых чисел подсчитать сумму элементов более чем в 2 рах превышающих минимальный.


textual

Код к задаче: «В массиве из 10 целых чисел подсчитать сумму элементов более чем в 2 раза превышающих минимальный - Pascal»

const
  n = 10;
 
var
  k, min, sum, i: integer;
  a: array [1..n] of integer;
 
begin
  min := MaxInt;
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    a[i] := random(n) + 1;
    write(a[i]:5);
    if a[i] < min then
      min := a[i];
  end;
  writeln;
  writeln('Min: ', Min);
  writeln('Массив чисел, удовлетворяющих условию: ');
  k := 0;
  sum := 0;
  for i := 1 to n do
    if a[i] > 2 * min then
    begin
      sum := sum + a[i];
      write(a[i]:5);
      inc(k);
    end;
  writeln;  
  if k <> 0 then  
    writeln('Sum: ', sum)
  else
    writeln('Нет таких элементов.');
end.

Блок-схема:

Блок-схема к задаче: В массиве из 10 целых чисел подсчитать сумму элементов более чем в 2 раза превышающих минимальный - Pascal
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.625 из 5

Источник