составить блок-схему по программе! program zadac;
var z,N:integer;
A:array [1..250] of integer; B:array [1..250] of integer; C:array [1..250] of real;
procedure funс(x:integer);
var j:integer;
begin
for j:=1 to N do
begin
A[j]:=random(91)-43;
write(a[j]:5,'');
end;
writeln;
for j:=1 to N do
begin
B[j]:=random(88)-36;
write(B[j]:5,'');
end;
writeln;
end;
begin
write('Введите кол-во элементов массива N = ');
read(N);
funс(1);
for z:=1 to N do
begin
C[z]:=(A[z]+B[z])/2;
write(C[z]:5:1);
end; end.
print("Ноль в качестве знака операции"
"\nзавершит работу программы")
while True:
s = input("Знак (+,-,*,/): ")
if s == '0':
break
if s in ('+', '-', '*', '/'):
x = float(input("x="))
y = float(input("y="))
if s == '+':
print("%.2f" % (x+y))
elif s == '-':
print("%.2f" % (x-y))
elif s == '*':
print("%.2f" % (x*y))
elif s == '/':
if y != 0:
print("%.2f" % (x/y))
else:
print("Деление на ноль!")
else:
print("Неверный знак операции!")