If x>y then begin writeln ('Не попал! Число больше!');goto m; end;
<span>if x<y then begin writeln('Не попал! Число меньше');goto m; end;</span>
Ответ:
a = int(input())
for i in range(a):
b = input()
c = 0
d = True
e = 0
f = False
g = False
h = '\''
for j in b:
if j == '#' and not f:
g = True
break
elif j != ' ':
if d:
print(' ' * c, end='')
elif c > 0:
print(' ', end='')
c = 0
print(j, end='')
if(j == '\"' or j == '\'') and e % 2 == 0:
if f and j == h:
f = False
else:
f = True
h = j
if f:
d = True
else:
d = False
if j == '\\':
e += 1
else:
e = 0
else:
c += 1
r = j == ' '
if g and c > 1:
print(' ', end='')
if i < a - 1:
print()
1
Объяснение:
Uses crt;
const
m = 50;
var
a: array[1..m] of integer;
i, n: integer;
begin
Clrscr;
Write('Vvedite 4islo elementov massiva: ');
Readln(n);
Writeln('Vvodite elementy massiva 4erez probel');
for i := 1 to n do Read(a[i]);
Writeln('*** Udvoennye elementy ***');
for i := 1 to n do Write(2*a[i], ' ')
end.
Тестовое решение:
Vvedite 4islo elementov massiva: 10
Vvodite elementy massiva 4erez probel
-5 2 12 8 -6 0 14 -9 3 1
*** Udvoennye elementy ***
-10 4 24 16 -12 0 28 -18 6 2
var m:array[1..100000] of integer;
a,b,sum,sum2,n,k,i:integer;
begin
sum:=0;
k:=0;
sum2:=0;
readln(a,b,n);
randomize;
for i:=1 to n do begin m[i]:=random(a,b); if(m[i]<50) then begin sum:=sum+m[i]; k:=k+1; end;
if(m[i]>=50) then sum2:=sum2+m[i]; end;
for i:=1 to n do write(m[i],' ');
writeln;
writeln((sum/k):5:3,' ',(sum2/(n-k):5:3));
end.