Var X = [1,2,3,4,5,6,7,8];
var Y = [1,2,2,3,3,4,4,4];
var A = [];
function f(i) {
var b;
for (var i2 = 0,a = 0; i2 < Y.length; i2++) {
if (Y[i2] == X[i]) {
a++;
}
if (a > 2) {
b=false;
break;
}
if (i2 == (Y.length - 1) && a == 2) {
b=true;
break;
}
b=false;
}
return b;
}
for (var i = 0,i2=0; i < X.length; i++) {
if (f(i)){
A[i2]= X[i];
i2++;
}
}
for (var i = 0; i < A.length; i++) {
alert(A[i]);
}
-3 до 5 семь чисел то есть Y может равнятся семью разными числами
10-4*-2=18
10-4*-1=14
10-4*0=0
10-4*1=6
10-4*2=2
10-4*3=-2
10-4*4=-6
const
N = 10;
Elem = 666;
var
a: array [1..N+1] of integer;
K: integer;
begin
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива a: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
K := Random(1,N);
for var i:=N downto K do
a[i+1] := a[i];
a[K] := 666;
writeln('После вставки элемента ',Elem,' в позицию ',K,':');
for var i:=1 to N+1 do
write(a[i],' ');
writel
Type
index='0'..'z';
var
Ch:array[0..255] of integer;
s:string;
i,max,imax:integer;
begin
{ очищаем массив счетчиков }
for i:=0 to 255 do Ch[i]:=0;
Writeln('Введите текст');
Readln(s);
for i:=1 to Length(s) do Inc(Ch[Ord(s[i])]);
max:=Ch[0]; imax:=0;
for i:=33 to 255 do { не рассматриваем непечатаемые символы и пробел}
if max<Ch[i]then begin max:=Ch[i]; imax:=i end;
Writeln('Символ "',Chr(imax),'" встретился ',max,' раз(а)')
end.
<em><u>Тестовое решение:</u></em>
Введите текст
"Что значит имя? Роза пахнет розой, хоть розой назови её, хоть нет." (В.Шекспир)
Символ "о" встретился 9 раз(а)