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

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

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

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

textual
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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы