ЗАПОЛНИТЬ ОДНОМЕРНЫЙ МАССИВ СЛУЧАЙНЫМИ ЦЕЛЫМИ ЧИСЛАМИ ОТ -15 ДО 15 . ВЫЧИСЛИТЬ СУММУ...

Question

ЗАПОЛНИТЬ ОДНОМЕРНЫЙ МАССИВ СЛУЧАЙНЫМИ ЦЕЛЫМИ ЧИСЛАМИ ОТ -15 ДО 15 . ВЫЧИСЛИТЬ СУММУ ЭЛЕМЕНТОВ БОЛЬШИХ 12

Answer 1

Var ar:array[1..10] of integer;
i,k:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 10 do
begin;
 ar[i]:=random(-15,15);
 write(ar[i]:4);
 if ar[i]>12 then k:=k+ar[i];
end;
writeln;
write('Result:',k);
end.

Comments

т.к. Паскали бывают разные и на разных платформах, то не плохо было бы добавить первоначальную инициализацию переменной k:=0

---

хорошо спасибо