//PascalABC.NET v3.3 1633
var arr: array [1..9] of byte;
begin
for var i:=1 to 9 do
arr[i]:=random(50,60);
for var i:=1 to 9 do
writeln(arr[i]);
var sum:=0;
for var i:=1 to 9 do
sum += arr[i];
writeln('Сумма эл. массива: '+sum);
end.
1-4
2-вообще, программа составлена неверно(being), но если не считать этого, то i=s=5
5-3
6-(A*B)/(C*D)/E
7-не указан символ ";" после команды 2c:=b2*b2
8-10
9-4
10-(ac+bc^2-bcd-a+b^2)/(bc)+0.11
var
x,y:real;
begin
Write('Введите х и у через пробел- '); Read(x,y);
Writeln(1+y/x)
end.
<u>Пример</u>Введите х и у через пробел- 13.54 -8.3
0.387001477104874