ПОЖАЛУЙСТА!!!ПОМОГИТЕ МНЕ С ИНФОРМАТИКОЙ!! Вычислить сумму элементов массива, значения...

+670 голосов
4.9m просмотров

ПОЖАЛУЙСТА!!!ПОМОГИТЕ МНЕ С ИНФОРМАТИКОЙ!! Вычислить сумму элементов массива, значения которых больше X.


Информатика (90 баллов) | 4.9m просмотров
Дан 1 ответ
+100 голосов

Ответ:

var a:array[1..10] of integer;

   x, i, s:integer;

begin

 s:=0;

 for i:=1 to 10 do a[i]:=random(100);

 readln(x);

 for i:= 1 to 10 do

   if a[i] > x then s:= s + a[i];

 write(s);

end.

Объяснение:

Как я понял размер массива условен.

(1.2k баллов)