Вопрос от посетителя:
Создать программу в паскале используя массив:
Найти сумму элементов, больших числа А.
Илюха отвечает:
program xxx;
var i, n : integer;
a, s : real;
b : array [1..20] of real;
begin
writeln(‘введите число а=’);
readln(a);
writeln(‘введите размерность массива n=’);
readln(n);
write(‘введите элементы массива B:’);
for i:=1 to n do
readln(b[i]);
writeln(‘исходный массив B:’);
for i:=1 to n do
writeln(b[i]);
s:=0;
for i:=1 to n do
if b[i] > a then s:=s+b[i];
writeln(‘сумма элементов =’, s);
readln
end.