Const n=10; var a:array[1..n] of integer; i:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(51); write(a[i]:3); end; writeln; writeln('Пары соседних элементов с суммой > 50:'); for i:=2 to n do if a[i-1]+a[i]>50 then writeln(a[i-1]:3,' ',a[i]); end.
Пример: 12 34 23 1 12 3 1 42 30 36 Пары соседних элементов с суммой > 50: 34 23 42 30 30 36
Answers & Comments
Verified answer
Const n=10;var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
writeln('Пары соседних элементов с суммой > 50:');
for i:=2 to n do
if a[i-1]+a[i]>50 then writeln(a[i-1]:3,' ',a[i]);
end.
Пример:
12 34 23 1 12 3 1 42 30 36
Пары соседних элементов с суммой > 50:
34 23
42 30
30 36