Const N = 9;
var a: array[1..N] of integer;
i, sum: integer;
begin
sum := 0;
for i := 1 to N do begin
a[ i ] := random(12)-2;
write(a[i]:4);
if a[ i ] > 2 then sum := sum + a[ i ];
end;
writeln();writeln();
write(' Сумма всех чисел > 2: ', sum);
<span>end.</span>
<span><span><em>function proverka(i :integer):boolean;
</em>
<em>begin
if i mod 2=0 then
</em>
<em>proverka:=true
</em>
<em>else
</em>
<em>proverka:=false;
</em>
<em>end;</em></span></span>
Электронный журнал (АСУ);
единая энциклопедия для учащихся онлайн, навигация по предметам (ИПС);
обучающие программы, позволяющие обучаться дистанционно (АСУ);
система, анализирующая успеваемость, позволяющая определять причины плохой успеваемости и давать рекомендации по ее улучшению (ЭС).