Решите в столбик. а) 84,25*3 б) 0,255*28 в) 0,125*312 г) 6,75*144 д) (4,8+3,5)*15 е) (18,6-9,1)*32 - id1079310220210916 от лиса266 16.09.2021 15:31

Question

Математика: Решите в столбик. а) 84,25*3 б) 0,255*28 в) 0,125*312 г) 6,75*144 д) (4,8+3,5)*15 е) (18,6-9,1)*32

лиса266 · Accepted Answer

Ну и сюда скину. Вдруг не заметишь)
Эта автоматически тебе всё сделает.
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.

Решите в столбик.
а) 84,253
б) 0,25528
в) 0,125312
г) 6,75144
д) (4,8+3,5)15
е) (18,6-9,1)32

MOGZ ответил