Решить по информатике линейные алгоритмы программы у человека есть некоторая сумма денег. он купил перчатки, галстуки портфелев. сколько денег у него осталось
Const n = 10; var a:array[1..n]of integer; min,imin,i,oldmin:integer; begin //Заполнение массива значениями в диапазоне //от -100 до 100 //и одновременно находим минимальный элемент элемент min:=100; for i:=1 to n do begin a[i]:=random(201)-100; if a[i]<= min then begin min:=a[i]; imin:=i;//Запомним index минимального end; write(a[i]:5); end; writeln;
//В цикле сдвигаем элементы массива //до индекса минимального включительно на //одну позицию вправо for i:=imin downto 2 do a[i]:=a[i-1]; a[1]:=min; //вывод элементов массива for i:=1 to n do write(a[i]:5); end.
человек купил перчатки за Б
А=А-Б
купил галстуки за В
А=А-В
купил галстуки за Г
А=А-Г
Осталось Итого = А
Вывести А