В задании не указано - требуется ли использовать форму или нет. Вариант документа с формой: <HTML> <HEAD> <SCRIPT> <!-- function btnClick(n) { if (n>5) r=n*n; else if (n<5) r=n-2; else r=Number(n)+1; document.frm.res.value=r; } //--> </SCRIPT> </HEAD> <BODY> <H1>Документ с JavaScript</H1> <FORM name=frm> Введите число <INPUT type=text name=num size=5 value=0> <INPUT type="button" name="bt" value="Щелкни здесь!" onClick="btnClick(num.value);"> Результат: <INPUT type=text name=res size=5 value=0> <BR><INPUT type=reset VALUE="Сброс"> </FORM> </BODY> </HTML>
Const n=5; m=4; var a:array[1..n,1..m] of integer; i,j,k,d,s:integer; begin Randomize; writeln('Оценки:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(4)+2; write(a[i,j]:4); end; writeln; end; k:=0; s:=0; for i:=1 to n do begin d:=0; for j:=1 to m do begin if a[i,j]=2 then d:=d+1; s:=s+a[i,j]; end; if d>0 then k:=k+1; end; writeln('Количество неуспевающих = ',k); writeln('Средний группы = ',s/n/m); end.
Пример: Оценки: 5 3 3 5 3 4 2 2 4 5 5 5 2 4 4 2 5 2 3 3 Количество неуспевающих = 3 Средний группы = 3.55
<HTML>
<HEAD>
<SCRIPT>
<!--
function btnClick(n)
{
if (n>5) r=n*n;
else if (n<5) r=n-2; else r=Number(n)+1;
document.frm.res.value=r;
}
//-->
</SCRIPT>
</HEAD>
<BODY>
<H1>Документ с JavaScript</H1>
<FORM name=frm>
Введите число
<INPUT type=text name=num size=5 value=0>
<INPUT type="button" name="bt" value="Щелкни здесь!"
onClick="btnClick(num.value);">
Результат:
<INPUT type=text name=res size=5 value=0>
<BR><INPUT type=reset VALUE="Сброс">
</FORM>
</BODY>
</HTML>
var
a:array[1..n,1..m] of integer;
i,j,k,d,s:integer;
begin
Randomize;
writeln('Оценки:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(4)+2;
write(a[i,j]:4);
end;
writeln;
end;
k:=0; s:=0;
for i:=1 to n do
begin
d:=0;
for j:=1 to m do
begin
if a[i,j]=2 then d:=d+1;
s:=s+a[i,j];
end;
if d>0 then k:=k+1;
end;
writeln('Количество неуспевающих = ',k);
writeln('Средний группы = ',s/n/m);
end.
Пример:
Оценки:
5 3 3 5
3 4 2 2
4 5 5 5
2 4 4 2
5 2 3 3
Количество неуспевающих = 3
Средний группы = 3.55