не могу решить задачу на Паскале, вернее задача наполовину решена.
Задача: дана последовательность n различных целых чисел. Найти сумму её членов, расположенных между макс. и мин. значениями(в сумму включить и оба эти значения).
Составленная мной программа правильно определят макс. и мин. значения, а с подсчитыванием суммы проблемы(
Вот часть программы, где подсчитывается сумма членов последовательности:
S:=min+max;
WriteLn('ind',Nmin, Nmax);
If Nmin
Попробуйте поменять S:=min+max;
на S:=0;
Эх... синтаксиса не помню.
Вроде так все норм... Если не ошибаюсь - сначала сумма считается, потом вывод на экран индексов мин и микс, дальше цикличный подсчет в двух вариантах, в зависимости какое число больше... Да, смущает первая строка - во первых без N, во вторых - вроде и правда двойной подсчет. Хотя - давно было..
поскольку я пишу под .net то вот на pascalabc.net
begin
var a := new integer[10];
for var i:=0 to 9 do
begin
a[i] := random(14);
write(a[i]+' ');
end;
//ищем минимум
var min := 1111111111111111111;
var indexmin:=-1;
for var i:=0 to a.length - 1 do
begin
if (a[i]max) then
begin
max := a[i];
indexmax := i;
end;
end;
var sum := 0;
if (indexmax
Гость
Попробуйте поменять S:=min+max;
на S:=0;
Это то от чего я ушла.
sum+=a[i];
не понняла этого выражения, может быть sum:=sum+a[i]?
не поняла*
всем спасибо, уже сама решила верно))
sum+=a[i];
не понняла этого выражения, может быть sum:=sum+a[i]?
наследие Си(но это работает только на PABC.net)