const nx=20;
var r:array[1..nx] of integer;
var j:real; n,i,sum,k:integer;
begin
randomize;
write('Введите n');
readln(n);
for i:= 1 to n do begin
r[i]:= random(15);
if ((i mod 4 = 0) and (r[i] < 5 )) then begin
sum:= r[i]+sum;
k:=k+1;
end;
write(r[i]:4);
end;
writeln;
writeln('sum =',sum:3,' k =',k);
end.
15 Кбайт=10*х*64*2 (байта на 1 символ в <span>кодировке Unicode</span>)
х=15*1024(байт)/(10*64*2)
х=12 страниц
...
for i := 1 to N do
begin
if (a[i] mod 10 = 5) then
begin
inc(x);
y += a[i];
end;
end;
writeln(y / x);
...
...
Проверить все элементы массива A. Если остаток от деления элемента на 10 равен пяти, то увеличиваем переменную x на единицу, а y на значение данного элемента. Затем делим y на x и получает результат.
Попробуем в обратном порядке, начиная из
С:\Кружок\Естественнонаучный.
Поднимемся на один уровень вверх С:\Кружок.
спустившись на два уровня вниз, мы должны оказаться в каталоге Последовательности.
Начальный каталог имеет полный путь
С:\Кружок\Математика\Последовательности.