Const K = 13; Var M:array[1..K] of integer; i,A:integer; S:longint; Begin Write('Исходный массив: '); For i:= 1 to K do Begin M[i]:=random(21)-10; Write(M[i],' ') End; WriteLn; Write('A = '); ReadLn(A); S:=0; For i:= 1 to K do if M[i] > A then S:=S+M[i]; WriteLn('S = ',S) End.
Var i,j,p:integer; a:array[1..20]of integer; begin writeln('Исходный массив:'); for i:=1 to 20 do begin a[i]:=random(20); write(a[i],' '); end; writeln; i:=1; while i<21 do begin j:=i; while j<21 do begin if a[i]<a[j] then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end; j:=j+2; end; i:=i+2; end; i:=2; while i<21 do begin j:=i; while j<21 do begin if a[i]>a[j] then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end; j:=j+2; end; i:=i+2; end; writeln('Измененный массив:'); for i:=1 to 20 do write(a[i],' ') end.
Порядок неубывания,значит порядок возрастания. 2828 не может,так как если мы введём максимальное число 99999,то будет 2727 2512 не может, так как порядок возрастания,а 25>12 2518 не может, так как порядок возрастания,а 25>18 2524 не может, так как порядок возрастания,а 25>24 2425 может(число 78997) 1825 может(число 72979) 1225 может(число 12979) 123 не может,существует 2 варианта записи этого числа: 1)12 и 3,но такого быть не может,так как 12>3 2)1 и 23,но такого быть не может,так как чтобы получилось 23 должны быть числа больше 7,а 1 получается слева,значит среднее число максимум 1,но нам оно не подходит Итак,подходят 2425,1825,1225 ответ: 3
K = 13;
Var
M:array[1..K] of integer;
i,A:integer;
S:longint;
Begin
Write('Исходный массив: ');
For i:= 1 to K do
Begin
M[i]:=random(21)-10;
Write(M[i],' ')
End;
WriteLn;
Write('A = ');
ReadLn(A);
S:=0;
For i:= 1 to K do
if M[i] > A then S:=S+M[i];
WriteLn('S = ',S)
End.
Пример:
Исходный массив: 9 -10 -6 6 -7 -1 -9 0 10 -8 -5 7 -7
A = 3
S = 32