В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География

3. дана последовательность из n различных чисел. найти сумму её членов, распо-ложенных между максимальным и минимальным элементами (в сумму включить и оба эти числа).

Показать ответ
Ответ:
ksenia1234567890123
ksenia1234567890123
30.09.2020 08:11
Программа на паскале:
const n=10;
var a:array[1..n] of integer;
max,min,imax,imin,s,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i],' ');
 end;
writeln;
max:=a[1]; imax:=1;
min:=a[1]; imin:=1;
for i:=1 to n do
 begin
 if a[i]>max then begin max:=a[i]; imax:=i; end;
 if a[i]<min then begin min:=a[i]; imin:=i; end;
 end;
writeln('max = ',max,'  min = ',min);
s:=0;
if imax<imin
 then for i:=imax to imin do s:=s+a[i]
 else for i:=imin to imax do s:=s+a[i];
writeln('s = ',s);
end.

Пример:
38 15 4 5 9 15 24 40 12 9 
max = 40  min = 4
s = 97
0,0(0 оценок)
Ответ:
Enigma0125
Enigma0125
30.09.2020 08:11
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

my @vector;
my $vector_length = 100;
my $random_dia = 30000;
push @vector, int(rand($random_dia)) for(0..$vector_length);
my ($start, $end) = (undef, undef);
my ($min, $max, $sum) = ( $random_dia, 0, 0,);
for my $position (0.. $#vector)){
  if($vector[$position] > $max ){
     $max = $vector[$position];
     $end= $position;
  }
  if($vector[$position] < $min ){
     $min = $vector[$position];
     $start= $position;
  }
}

for my $position ($min..$max){
 $sum += $vector[$position];
}

say 'Result: \t '.$sum;
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота