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

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

textual

Код:

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

Похожие ответы
  1. В заданном массиве подсчитать количество положительных и отрицательных чисел. Вывести на экран заданный массив и счетчики.

  1. Подсчитать количество строк в двумерном массиве сумма положительных элементов которых больше числа p.

  1. Здравствуйте, помогите пожалуйста с решением непонимающему студенту Дан одномерный массив Х, состоящий из 20 целых чисел. Составить программу подсчитывающую количество разных по значению элементов в нем. Заранее спасибо

  1. Препод задал задачку, подсчитать количество отрицательных чисел в массиве через Repeat-Until. Это вообще возможно? Я кое что набросал, но работает как я понимаю до первого true ( как и должно через Repeat-Until ).

  1. В одномерном массиве из 10 элементов подсчитать количество каждого элемента. Прошу вас, помогите решить) Вроде бы легкая задача, да вот что-то не понимаю.

  1. 1)Имеется массив А из N произвольных чисел - А(N), среди которых есть положительные, отрицательные и равные нулю.Выяснить, каким по счету в очереди стоит число 3. Если троек несколько, нас интересует только первая из них. Если троек нет совсем, напечатать сообщение "Троек нет". Например, если А = { 2, 4, –3, 3, 5, –2, 1}, результат: 4. 2)Подсчитать количество положительных и отрицательных чисел и количество нулей. Например, если А = { 2, 4, –3, 0, 5, –2, 5}, результат: 4, 2, 1. 3)Найти номер максимального четного элемента в массиве. Например, если А = {2, 4, –3, 6, 2, 9, –2}, результат: 4.

  1. 1) Подсчитать количество различных чисел, встречающихся в одномерном массиве; 2) Подсчитать сумму элементов каждой строки двумерного массива А(4,6). Заранее спасибо!

  1. В символьном массиве подсчитать количество гласных согласных букв. (русский алфавит. Определение гласных и согласных можно сделать с помощью функции). помогите а то вооще!!! Зарание спасибо!

  1. В массиве С (n) подсчитать количество отрицательных и сумму положительных элементов

  1. Подсчитать, сколько элементов в массиве не совпадает с последним элементом.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика