const s='Каждый охотник желает знать где сидит фазан';
var s1,sub:string;
i,j,m,n:integer;
a:array[1..100] of string;
begin
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')or(s[i]=',') then begin
inc(n);
a[n]:=sub;
sub:='';
end
else sub:=sub+s[i];
until i=length(s);
inc(n);
a[n]:=sub;
writeln;
for i:=1 to n do
begin
if i mod 4 =1 then writeln(a[i]);
if i mod 4 =2 then writeln(' ',a[i]);
if i mod 4 =3 then writeln(' ',a[i]);
if i mod 4 =0 then begin
writeln(' ',a[i]);
writeln;
end;
end;
end.
Объяснение:
Возможности протестировать нет, но надеюсь работает. Питон не знаю, но возможно
я надеюсь ты не будешь против, если я буду кидать всю программу
пишу на python
№1
#array заполнен по условию
even = 0
odd = 0
for elem in array:
if elem % 2 == 0:
even += 1
else:
odd += 1
print(even, odd)
№2
a)
Red Blue Yellow Purple
Red Blue Purple Yellow
Blue Red Purple Yellow
б)
for i in range(len(array)):
for j in range(len(array) - 1):
if array[j] > array[j + 1]:
array[j], array[j + 1] = array[j + 1], array[j]
print(*array)
№3
k = int(input())
array = array[:k] + array[k + 1:]
print(array)