const
handsfree = false;
nmax = 31;
random_min = -20;
random_max = 30;
var
a: array[1..nmax] of real;
i, n, j: integer;
k: integer;
begin
{ввод массива}
if handsfree then
n := random(nmax - 5) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
else
readln(a[i]);
end;
writeln();
{подсчет элементов}
k := 0;
for i := 1 to n do
if a[i] = 15 then
k := k + 1;
writeln('quantity = ', k);
end.
1) 25
2) <span>Обработка Паскаль
3) </span>Обработочка строк в Паскаль
4) Паскаль
5) Оскал
6) 4
7) Обраб тка стр к в Паскаль
8) a:=дела? | b=Привет!
9) В Паскакль есть много функций (вообще любую фразу состоящую из 5 слов, символов отделенных пробелом)
10) SоооS
Символ = 6 бит ( 2^6=64 символа )
всего символов 26 * 65 * 5 = 8450
<span>всего бит 8450 * 6 = 50700 бит /8 / 1024 = 6 Кбайт</span>
1024×400=409600 байт
409600÷50=8192байта/с
8192×30=245760байт=240Кбайт