Найти сумму элементов массива, меньших или равных K - Pascal ABC

  1. Дан одномерный целочисленный массив из 50 элементов. Найти сумму элементов массива, меньших или равных K. Напечатать ответ.


textual

Код к задаче: «Найти сумму элементов массива, меньших или равных K - Pascal ABC»

const
    n=50;
var
    a: array[1..n] of integer;
    i,k,sum: integer;
begin
    randomize;
    for i:=1 to n do begin
        a[i]:=random(100);
        write(a[i],' ');
    end;
    writeln;
    write('k = '); readln(k);
    sum:=0;
    for i:=1 to n do
        if a[i] <= k then sum:=sum+a[k];
    writeln('Sum = ', sum);
end.

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

12   голосов, оценка 3.750 из 5



Похожие ответы
  1. Заполнить числами, начиная с единицы, квадратный массив из NxN элементов «змейкой». Пример, для массива 4х4: Код 1 2 3 4 8 7 6 5 9 10 11 12 16 15 14 13 Реализовать ввод размерности с клавиатуры

  1. Создать одномерный числовой массив из 6 элементов и вывести результат на экран. Затем элементы, стоящие на нечетных местах уменьшить на 2, подсчитать сумму этих элементов и вывести эти значения на экран с пояснениями.

  1. Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). Если количество четных элементов больше, то отсортировать его по возрастанию, иначе по убыванию Обязательно сделать через процедуры Заранее благодарю

  1. Найти минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы.

  1. Введите массив из 5 элементов с клавиатуры и найдите количество элементов , запись которых в 2с.с-палиндром(например,10101 в двоичной=21)

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!

  1. Помогите написать программу Создать вектор М, содержащий количество отрицательных элементов каждого столбца матрицы z(3,4).

  1. Дан прямоугольный массив целых положительных чисел. Отыскать в массиве строку с наименьшей суммой элементов. Вывести на печать номер строки и сумму ее элементов. Предполагается, что такая строка единственна.

  1. ЦЕЛЬ : Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку, как указано в варианте. Исходные данные считывать из предварительно подготовленного файла. Данные в файле задать самостоятельно, учитывая специфику задачи. Размерность массива должна определяться программой исходя из формата файла-источника. Задана квадратная матрица A размером N x N (N<=10), состоящая из действительных элементов. 3) Найти среднее арифметическое элементов каждой из строк этой матрицы. помогите пожалуйста,умоляю молю, работа с файлом т.е матрица в текстовом доке, буду рад любой помощи

  1. В массив В записать K