Создать программу в паскале используя массив: найти сумму элементов, больших числа а.

125

448

Посмотреть ответы 3

Ответы на вопрос:

Eva345678

Информатика

4,8(66 оценок)

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.

ОтличницаКотик5

Информатика

4,6(88 оценок)

program p_1; var i, n : integer; a, s : real; b : array [1..1000] 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); end.