СССССРООООООООООООООЧЧЧЧЧЧННОООООО!!!!!!!!!! Дан массив целых чисел. Найдите: а) Сумму элементов массива, больших данного числа А (А вводить с клавиатуры).
СССССРООООООООООООООЧЧЧЧЧЧННОООООО!!!!!!!!!! Дан массив целых чисел. Найдите:
а) Сумму элементов массива, больших данного числа А (А вводить с клавиатуры).
Гость
Ответ(ы) на вопрос:
Гостьconst z = 10;
var
a: array[1..z] of integer;
i, n, s: integer;
begin
readln(n);
for i := 1 to z do begin
a[i] := random(100);
write(a[i], ' ');
if(a[i] > n) then s := s + a[i];
end;
writeln;
writeln('Сумма эл. > ', n, ' : ', s);
end.
Не нашли ответ?
Похожие вопросы