3. Дана последовательность из N различных чисел. Найти сумму её членов, распо-ложенных между максимальным и минимальным элементами (в сумму включить и оба эти числа).
Ответы
Ответ дал:
0
#!/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;
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
Программа на паскале:
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
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
Огромное спасибо;3
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
9 лет назад
9 лет назад