1580kilobautпо идее должно быть до 1580 килобайтов
решение в среде Паскаль:
Var a:array[1..10] of Integer; i,s,m: integer; f,t:real;
begin
s:=0;
writeln('write marks');
For i:=1 to 10 do begin
readln(a[i]);
If i>1 then begin
If a[i-1]=2 then begin
If a[i]<>2 then begin s:=s-2; m:=m-1; end;end;end;
s:=s+a[i];
m:=m+1;
end;
f:=s/m;
t:=Int(f);
Writeln('His or her mark is ', t:2:0);
readln;
end.
1) var n: integer;
2) <span>_а
1) A:=2;
2) readln (x);
read (x);
3) ,
4) write (x);
writeln (x);
5) +,-,*,/,</span>
Var a,b : Integer;
Begin
Readln(a,b);
Writeln('Ср.арифм. = ',(a+b)/2);
end.