Думаю что 0.Символ ,,&"Нет в поисковой системе.Ну это не точно)
const n=10;
var a,s,i: integer;
m:array[1..n] of integer;
begin
read(a);
for i:=1 to n do
if m[i]>a then s:=s+m[i];
end.
Program z1; Var a: array [1..100] of integer; n,i:integer; s:real; Begin write('Введите кол-во учеников - '); readln(n); for i:=1 to n do begin write ('Ученик №',i,', Оценка - '); readln(a[i]); end; s:=0; for i:=1 to n do begin s:=s+a[i]; end; s:=s/n; writeln('Средний балл - ',s);<span>End.</span>
Объяснение:
<em>#include <iostream></em>
<em>using namespace std;</em>
<em>int main()</em>
<em>{</em>
<em>int i, squareI;</em>
<em>i=11;</em>
<em>while (i<21) do</em>
<em>{</em>
<em>squareI=i*i;</em>
<em>cout << "i= " << i++ << "; squareI= " << squareI << endl;</em>
<em>}</em>
<em>return 0;</em>
<em>}</em>