Program lab3;const n=10; {количество элементов в массиве} var A:array [1..n] of real; {объявление массива А} i:byte; {переменная для циклов} b:boolean; {идентификатор роста}begin writeln('vvedite tselie chisla matrici A[',n,',',n,']'); for i:=1 to n do begin {циклвводавмассив} write('A[',i,'] = '); readln(A[i]); end; writeln; writeln('matraca imeet vid: '); for i:=1 to n do begin {циклвыводамассива} write(A[i]:3:3,' '); end; writeln; b := true; for i:=1 to n-1 do {цикл определения роста} if (A[i] > A[i+1]) then begin {если текущий больше следующего} b := false; {значит масив невозростающий} break; end; if (b) then writeln('Masiv A - vozrostaushaya posledovatelnost''') else writeln('Masiv A - ne vozrostaushaya posledovatelnost'''); readln;
1:
s = 'Это некоторое предложение'
a = ord('а')
chars = [rrchr(i) for i in range(a,a+34) if not rrchr(i) in s and i != a+32]
print(chars)
2:
parallel = [('имя1','имя2','имя3','имя4'),('имя1','имя2','имя5'),('имя2','имя4')]
names = ['имя1','имя2','имя3','имя4','имя5','имя6']
presence = []
for name in names:
counter = 0
for klass in parallel:
for person in klass:
if person == name:
counter += 1
break
presence.append((name,counter))
for name in presence:
print(name[0],'-',
'встречаются во всех классах данной параллели' if name[1] == len(parallel)
else 'есть только в некоторых классах' if name[1] != 0
else 'не встречаются ни в одном классе')