//pascalabc.net версия 3.3.1590 от 03.12.2017 //если программа не запускается, то обновите версию uses system; begin var a : = arrrandominteger(100, -100, 100); println(a); var max : = a.max(); a[a.indexmax()] : = 0; max : = max * a.max(); var min : = a.min(); if (min < 0) then begin a[a.indexmin()] : = 0; min : = min * a.max(); end; writeln(math.max(max, min)); end.
Низамов
31.01.2021
1. var a,b,h: integer; begin readln(a,b); if a< b then h: =1 else h: =-1; while a< > b do begin write(a,' '); a: =a+h; end; writeln(a); end. пример: 7 12 7 8 9 10 11 12 2. var a,b: integer; begin readln(a,b); if a< b then while a< =b do begin write(a,' '); a: =a+1; end else while a> =b do begin write(a,' '); a: =a-1; end; end. пример: 12 7 12 11 10 9 8 7
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Рассчитать какая будет сумма на счете, если 27 тыс. руб. положены на 33 года под 13, 5% годовых. проценты начисляются каждые полгода. в екселе