Сказано было сформировать массивы с имененем А и В. Заполняем их целыми числами, так что и объявить массивы можно как целые. Но это мелочи, не обязательные.
var
<span>a, b: array[1..20]of integer; </span>
<span> i, s,n: integer; </span>
begin
writeln('Массив А:');
randomize;
for i := 1 to 20 do
begin
a[i] := random(100) - 50;
write(a[i],' ');
<span> if (a[i] > 0) and (i mod 2 = 0) </span><span>then
begin
</span> n:=n+1; <span>
b[n]:= a[i]; </span>
s := s + b[n] * b[n];
end;
end;
writeln();
writeln('Массив В:');
for i:=1 to n do write(b[n]);
writeln;
writeln('S = ', s);
end.
Технолог,тополог-а вообще их много.
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]);
}
Синтаксис (Дель-фИн)
Значение (с вида китообразный),подвида(зубастых китов)
Зачастую плавают стаями.