Const
n=63;
var
M:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
M[i]:=Random(101)-50;
Write(M[i],' ')
end;
Writeln;
Writeln('Найденная сумма равна ',M[3]*2+M[10]+5)
end.
<u>Пример</u>
24 -15 -26 -33 -9 -4 -40 -33 -24 -48 -27 -12 8 9 -10 35 -2 -35 -3 -19 -8 5 -43 -26 -22 -5 46 -7 37 -3 22 11 -46 -23 49 -37 15 -45 -8 9 24 -32 30 -16 -12 -31 -28 6 -44 1 38 -44 -29 49 -45 -32 -22 -50 39 46 0 17 -20
Найденная сумма равна -95
Чем помочь кидай картинку
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]);
}
Var a, b, c : integer;beginfor b:=15 to 95 doif b mod 3 = 0 thenbegina:=a+1;c:=c+a;end;writeln('Кол-во чисел = ',a);writeln('Сумма чисел = ',c);end.