2 а) INPUT "Ширина первого прямоугольника";A1 INPUT "Длина первого прямоугольника";B1 INPUT "Ширина второго прямоугольника";A2 INPUT "Длина второго прямоугольника";B2 IF A1/A2=B1/B2 THEN PRINT "Фигуры подобны" ELSE PRINT "Нет подобия"
Uses crt;const nmax=100;var a1,a2: array[1..nmax] of integer; n,i,b,k,s: integer;begin randomize; clrscr; repeat write('Введите размер массива n (n in [1..',nmax,']): '); readln(n); write('Введите число B (0<B<100): '); readln(b); until (n in [1..nmax]) and (b in [1..99]); writeln('Массив A1'); for i:=1 to n do begin a1[i]:=random(99); write(a1[i]:4); if a1[i]>b then begin inc(k); a2[k]:=i; s:=s+a1[i]; end; end; writeln; writeln('Среднее элеметов, больших B = ',s/k:0:2); writeln('Массив A2:'); for i:=1 to k do write(a2[i]:4); readln;end.
Мне кажется, у Вас лишняя скобка перед not
Плюс (x==y) почему-то взято аж в две скобки, но это не влияет на корректность выполнения задания, просто может затруднять прочтение и поиск ошибок
Я бы переделала ту строчку на
if (not((x==y) or (x==w)) or z or (not(y<=w))) == 0:
А так всё хорошо! Удачи с учёбой