Вопрос по информатике:
Найти все пары последовательных чисел массива, сумма которых больше 50.паскаль
Пожаловаться
- 22.05.2018 15:20
- Информатика
- remove_red_eye 17990
- thumb_up 6
Ответы и объяснения 2
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
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
Пожаловаться
- 23.05.2018 14:50
- thumb_up 40
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a.Pairwise.Where(x->x[0]+x[1]>50).Println;
end.
Пример
n= 15
-59 52 29 -81 -80 52 69 -43 30 74 -24 -15 50 47 0
(52,29) (52,69) (30,74) (50,47)
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a.Pairwise.Where(x->x[0]+x[1]>50).Println;
end.
Пример
n= 15
-59 52 29 -81 -80 52 69 -43 30 74 -24 -15 50 47 0
(52,29) (52,69) (30,74) (50,47)
Пожаловаться
- 24.05.2018 22:31
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы