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

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

Дан одномерный целочисленный массив из 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.
Эта работа вам не подошла?

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


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

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

Источник