СССССРООООООООООООООЧЧЧЧЧЧННОООООО!!!!!!!!!!
Дан массив целых чисел. Найдите:
а) Сумму элементов массива, больших данного числа А (А вводить с клавиатуры).
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
