Информатика, опубликовано 2018-08-22 23:29:47 by Гость
Найти сумму элементов массива, больших данного числа b (b вводится с клавиатуры). Паскаль
Ответ оставил Гость
Program gt;
var a:array[1..1000]of real;
n,i:integer;
s,b:real;
begin
readln(n); //n- кол-во чисел массива
readln(b); //b-число которое вводиться с клавиатуры для проверки
s:=0;
for i:=1 to n do
begin
read(a[i]);
if (a[i] > b) then s:=s+a[i];
end;
writeln(s);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на