Здесь есть программисты?Подскажите

Попробуйте поменять 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]?

не поняла*

всем спасибо, уже сама решила верно))

наследие Си(но это работает только на PABC.net)