Определите сумму элементов массива больших 5. Помогите ПЛИИИИЗ!)
Var
a:array[1..10] of integer;
s,i:integer;
Begin
for i:=1 to 10 do Begin
a[i]:=random(10);
s:=s+a[i];
End;
Write(Сумма чисел больших пяти равна ,s);
End.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var
a:array[1..10] of integer;
s,i:integer;
Begin
for i:=1 to 10 do Begin
a[i]:=random(10);
s:=s+a[i];
End;
Write(Сумма чисел больших пяти равна ,s);
End.