Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Код Pascal:
Const
N = 14;
Var
C:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
Write('C(',N,'):');
S:=0;
For i:= 1 to N do
Begin
C[i]:=random(21)-10;
Write(' ',C[i]);
S:=S+C[i]
End;
WriteLn;
Write('Sr(C) = ',S/N);
End.