const n=21;
var a:array[1..n] of integer;
sr:array[1..3] of real;
k,s,i,j:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(11);
write(a[i],' ');
end;
writeln;
k:=n div 3;
for j:=0 to 2 do
begin
s:=0;
for i:=1 to k do s:=s+a[j*k+i];
sr[j+1]:=s/k;
end;
for j:=1 to 3 do write(sr[j]:4:2,' ');
end.
Пример:
3 5 9 10 10 7 7 3 2 10 3 6 5 10 1 7 8 6 9 5 6
7.29 5.57 6.00
Var a:array[1..20,1..20] of integer;i,j,n:integer;beginreadln(n);for i:=1 to n dofor j:=1 to n doread(a[i,j]);
for i:=1 to n dofor j:=1 to n doif a[i,j] mod n =0 then a[i,j]:=a[i,j] div n;
for i:=1 to n do beginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;end.
using System;
using System.Linq;
namespace Prog
{
public class Program
{
public static void Main(string[] args)
{
String str = "15 0 87 2 34";
String[] nums = str.Split(' ');
var evenNumbers = nums.Where(i => Convert.ToInt32(i) % 2 == 0);
foreach (String i in evenNumbers)
Console.WriteLine(i);
}
}
}
Подробнее - на Znanija.com - znanija.com/task/30617450#readmore
Частота дискретизации 22.05 кГц = 22050 Гц означает, что в секунду делается 22050 отсчетов уровня звука. Каждый отсчет в одном канале звука кодируется 16 битами, что составляет 16/8 = 2 байта. В стереофайле каналов два, потому на отсчет требуется 2×2 = 4 байта. Секунда звука кодируется 4×22050 = 88200 байтами. А пять секунд потребуют 5×88200 = 441000 байт.
При однобайтной кодировке символ занимает 1 байт, поэтому в документе будет 441 000 символов.
В задании не указано - требуется ли использовать форму или нет. Вариант документа с формой:
<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>