//1 Var ar:array[1..5] of integer; min,i:integer; begin min:=2147483647; for i:=1 to 5 do begin readln(ar[i]); if ar[i]<min then min:=ar[i]; end; write('Min=',min); end.
Пример ввода: 6 -6 3 4 5 Пример вывода: Min=-6
//2
Var ar:array[1..20] of integer; i,s:integer; begin; randomize; s:=0; writeln('Array:'); for i:=1 to 20 do begin; ar[i]:=random(101); write(ar[i]:4); if ar[i] mod 7=0 then s:=s+ar[i]; end; writeln; write('Sum=',s); end.
Для того что бы округлить нужно использовать "=ОКРУГЛ" данная команда округляет число до указанного количества десятичных разрядов, цифр после запятой. (что бы округлить сумму нужно записывать количество десятичных разрядов в конце выражения). Пример:«=ОКРУГЛ((выражение);число)»
Дано:
Математическое выражение: «(56+196)-2(74:(7+15))»
Найти: Значение выражения и округлить его в MS Ecxel.
Формула (Её нужно ввести в окошко Excel и нажать "Enter"): «=ОКРУГЛ((56+196)-2*(74/(7+15));2)»
ответ: 245,27
Далее скриншот, и файл Excel в котором формула и сам ответ.
Сор нез ну блин нужно обьизательно 20 символов а если преложение состоить из 5