Вике нужно было найти значение сложного выражения. она выполнила такие действия: 32+35, 8×4, 36÷9, 24÷3, 7×5 найди значение каждого из этих выражений. определи порядок выполнения действий. запиши сложное выражение. (учебник 36 школы 3б класса)
Ну и сюда скину. Вдруг не заметишь) Эта автоматически тебе всё сделает. Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); a[i]:=i+1; if max<a[i] then max:=a[i]; writeln(a[i]); end; writeln('Максимальный элемент равен: ',max); end.
Если нужно будет ввести последовательность с клавиатуры, то вот: Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); ReadLn (a[i]); if max<a[i] then max:=a[i]; end; writeln('Максимальный элемент равен: ',max); end.
1. 24÷3=8
2. 36÷9=4
3. 8×4=32
4. 7×5=35
5. 32+35=67
(24÷3)×(36÷9)+7×5