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

  1. Помогите написать программу: В массиве из 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

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

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



Похожие ответы
  1. - Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и выводит результат на дисплей в виде строки. - Длина строки заранее не вводится, а определяется после окончания ввода с клавиатуры. - В строке группы символов разделяются одним или несколькими пробелами. Пробелы могут находиться в начале и в конце строки. Группа символов - последовательность букв, цифр или знаков, отделенная пробелами от других групп или находящаяся в начале/конце строки. - Все буквы считать вводимыми только в нижнем регистре, Заглавные буквы не рассматривать. - В заголовок окна программы записать свои данные: имя, фамилию и номер варианта. Примеры возможных строк: ‘ 12.3 tryi yu ()?*‘, ‘ 6е-1 swty +12_3‘ Напечатать: Группы символов, состоящие только из латинских букв, если в них есть повторяющиеся буквы.

  1. Необходимо скопировать из 1 файла в другой не используя строк (String). Там через Char как-то. Буду благодарен

  1. Напишите процедуру, которая вычисляет трёхзначное число m, состоящее из трех цифр. Первая цифра – m3 - сотни, вторая – m2 - десятки и третья - m0 - единицы. Вычислить пять трехзначных чисел. Процедуру оформить несколькими способами. Заранее, большое спасибо.

  1. Обработка двумерных массивов (матриц) Разработать программу, в которой предусмотреть: - ввод размерности NxM двумерного массива А, - задание элементов массива двумя способами: ввод с клавиатуры и формирование значений с помощью функции RANDOM(K) генерирования случайных чисел в диапазоне [0..К-1]. ВАРИАНТ ЗАДАНИЯ : Построить новую матрицу, которая образуется из исходной добавлением к ней строки максимальных значений по столбцам.

  1. Описать процедуру, записывающую в переменную X минимальное из значений X и Y, а в переменную Y — максимальное из этих значений. Используя четыре вызова этой процедуры, найти минимальное и максимальное из данных чисел A, B,C, D. Заранее спасибо.

  1. Уверен, что repeat until; for; while вполне могут быть заменены одним while. Стремлюсь к простоте, однообразию, однозначности. В последнее время время как-то пользуюсь исключительно цепочкой из ряда if-ов , рассматривая его как фильтр-решето, улавливающий только "нужную рыбу"и отправляющий ее на определенную линию для дальнейшей обработки. Все остальное просто как шлам проваливается вниз, без всяких else. Может логика программ недостаточно сложная, но создалось впечатление, что else if; else; - элементы языка избыточные, некая формальная или антропоморфная конструкция, без которой вполне можно обойтись. Буду признателен, если подтвердите или опровергнете данное суждение.

  1. Напишите функцию, которая возвращает наименьшее из значений |x-y|, |y-z|, |z-x|.

  1. Напишите программу, которая выводит в столбец произведения чисел а = 143, b = 777 и чисел 1, 2, 3, ... 9. Результаты решения этой задачи могут удивить и озадачить. Тысячелетиями человечество, выполняя различные вычисления, находило среди чисел и результатов операций с ними интересные закономерности. Некоторым числам, например, 3, 7, 13, 666 и т. п., придавалось мистическое значение. В наше время, имея доступ к компьютеру, можно целенаправленно заниматься поиском различных «фокусов» с числами. Как правило, такой поиск требует значительных переборов вариантов и по силам только компьютеру.

  1. Задан файл из N целых компонентов. Сформировать новый файл, который будет состоять из сумм компонентов a1+aN, a2+aN-1, a3+aN-2, ..., ak+am для k<=m. Выдать содержимое полученного файла на экран.