(pascal) дана непустая последовательность слов из строчных латинских букв. напечатать в алфавитном порядке : 1)все глухие согласные , которые не входят ни в одно нечетное слово 2)все звонкие согласные которые входят хотя бы в одно не четное слово и не входят ни в одно четное . , вообще ничего не

// PascalABC.NET
var  gl:='кпстфхцчшщ'; 
zv:='бвгджзлмнр'; 
zi: array [1..2,1..10] of integer;  //для отметок о выполнении условий для звонких 
s: string; 
i,n:integer; 
chet:boolean; //признак четности слова
begin
chet:=false;
writeln('введите строку из русских слов, разделенные пробелом');
readln(s);
for i:=1 to length(s) do
  begin
  n:=Pos(s[i],zv);
  if (chet=false) then
     begin
     delete(gl,Pos(s[i],gl),1);
     if n>0 then zi[1,n]:=1  //первый признак выполнен
     end
     else if n>0 then zi[2,n]:=-1; //второй признак не выполнен
  if s[i]=' ' then chet:=not(chet);
  end;
writeln('глухие согласные, которых нет в нечетных словах: ',gl);  
write('звонкие согласные, которых нет в четных словах и которые входят хотя бы в одно нечетное: ');  
for i:=1 to 10 do
  if zi[1,i]+zi[2,i]=1 then write(zv[i]);
end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

uses GraphABC;

type point=record

          x,y:integer;

          end;

procedure plitk(x,y,r:integer);

var p:array[1..9]of point;

   a,da:real;

   i:byte;

begin

a:=pi/2;

da:=pi/4;

for i:=1 to 9 do

begin

 p[i].x:=x+round(r*cos(a));

 p[i].y:=y-round(r*sin(a));

 a:=a+da;

end;

polygon(p,9);

end;

var r,i,j,x,y,d:integer;

begin

r:=20;

y:=r;

while y<=windowheight do

begin

 x:=r;

 while x<=windowwidth do

  begin

   plitk(x,y,r);

   x:=x+2*r;

  end;

 y:=y+2*r

end;

end

1-Индексом элемента называется номер элемента в массиве  

2-Массив данных имеет общее имя и один тип

3-Массив-это совокупность однотипных данных, хранящихся в последовательных ячейках памяти  

4-В записи D[4]=3.5, D обозначает имя массива  

5-можно назвать этот ряд:2.3, 5.7, 10.89.

 6-правильно описание массива:D: array[1..5] of real

7-команда Randomize

 8-Для заполнения массива путем ввода чисел с клавиатуры мы используем оператор Readln

9-Выводит N значений массива на экран

10-Sum:=sum+a(i)

11-Выбирает минимальный элемент массива

12-условие:If a[i]>0 then k:=k+1

13-значение суммы после выполнения следующего фрагмента программы равн.25

14-знач.суммы 21

15-знач.переменн.9

16-нельзя определить значение переменной

17-знач>перемен.6

18-знач.перемен. 2

19-знач.перемен.12

20-знач.перемен.6