Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.