Program mmm;
Var a : real;
var i: integer;
s: real;
begin
s:=0;
Randomize;
For i := 1 To 30 Do
Begin
a := random*100-45;
writeln(a:6:2) ;
//выписываем сгенерированные числа, необязательно
if a>40 then
s:=s+a;
End;
writeln(s:6:2) ;
end.
<span>Write (с англ. писать) - оператор, который используется для вывода информации на экран (в консоль). Есть еще его аналог, оператор WriteLn, который делает то же самое что и Write, только после этого переносит каретку на начало следующей строки.</span>
Ответ:
ответ 1
Объяснение:
так как если складывать в столбик получаем a+8=18 как и в 10системе пишем то что перешло основание то есть 2 и один запоминаем 1+0=1 и еще 1 это 2 значит итог 22