Возьми и положи все необходимые тебе учебники, тетради и тому подобное в портфель
Ввод: x ^ y С/П.
<-> П0 1 + + П1 ИП0 / 1/x П2
ИП1 С/П ИП2 С/П ИП0 С/П
Какое решение? Ты фото скинь потом уже будем решать :D
Repeat
a:=a+1;
b:=Arr[a];
writeln(b);
until b = 0;
Вероятно так
Ответ:
var a:array [1..14] of real;
i:integer;
s:real;
begin
s:=0;
write('Массив: ');
for i:=1 to 14 do
begin
a[i]:=random()+random(3);
write(a[i]:0:3,' ');
s:=s+a[i]
end;
writeln;
write('Сумма чисел равна ',s:0:3)
end.