Добавлено (2009-06-19, 11:25 Am)
---------------------------------------------
C2 (парню в асю решал, если это с баллами и меньше 30 - средний балл, то вот)
x:=0; s:=0;
for i:=1 to N do begin
if a[i]<30 then begin
inc(x);
s:=s+a[i];
end;
end;
s:=s/x;
write(s);

var a:array[0..30] of integer;
x,s,i : integer;
begin
x:=0; s:=0;
for i:=1 to N do begin
if a[i]<30 then begin
inc(x);
s:=s+a[i];
end;
end;
s:=s/x;
write(s);
end.

C2 так ?

Добавлено (2009-06-19, 11:48 Am)
---------------------------------------------
Задачка из а там некоторое слово из 24 букв..так что пишите нормально условие

Известно что в классе хотя бы один учащийся получил за тест неуд.

Исходные данные представленны ниже ,запрещается использовать переменные ,не описанные ниже. Но разрешается не использовать часть из них.

Const
N=30;
vаr
а: аrrаy [1..N] оf integer;
i, х, у: intеgеr;
s: rеаl;
bеgin
fоr i:=1 to N do rеаdln (а[i]);

...

еnd.

x:=0; s:=0;
for i:=1 to N do begin
if a[i]<30 then begin
inc(x);
s:=s+a[i];
end;
end;
s:=s/x;
write(s);

еnd.

Т.е. полная прога будет такой?