TYPE MAS1=ARRAY[1..N] OF REAL;

MAS2=ARRAY[1..N] OF INTEGER;

VAR B,X:MAS1; Y:MAS2; I,J:INTEGER; P:CHAR;

BEGIN

WRITELN(' ВВЕДИТЕ ',N,' ЧИСЕЛ');

FOR I:=1 TO N DO

X[I]:=random(-25,25);

WRITELN(' ':20, 'ВИХОДНОЙ МАССИВ');

FOR I:=1 TO N DO WRITE(X[I]:5:1);

WRITELN;

J:=0;

FOR I:=1 TO N DO BEGIN

IF (X[I] 0 THEN FOR I:=1 TO J DO

WRITELN(' ':5,'B(',I,')=',B[I]:5:1,'':3, ' Y(',I,')=',Y[I]:2)

ELSE WRITELN(' ТАКИХ ЕЛЕМЕНТОВ НЕТ');

END.

*В этой строке компилятор выдает ошибку "Нельзя преобразовать тип real к integer".

Полностью задание звучит так: "Сформировать два массива, содержащих значения и индексы отрицательных кратных 4 элементов исходного массива Х (20)."

Объяснение:

i=1

while(i<11):

if(i==1):

print(f"Факторіал {i} дорівнює 1 ")

elif(i==2):

print(f"Факторіал {i} дорівнює 2 ")

elif(i==3):

print(f"Факторіал {i} дорівнює 6 ")

elif(i==4):

print(f"Факторіал {i} дорівнює 24 ")

elif(i==5):

print(f"Факторіал {i} дорівнює 120 ")

elif(i==6):

print(f"Факторіал {i} дорівнює 720 ")

elif(i==7):

print(f"Факторіал {i} дорівнює 5040 ")

elif(i==8):

print(f"Факторіал {i} дорівнює 40360")

elif(i==9):

print(f"Факторіал {i} дорівнює 363240")

elif(i==10):

print(f"Факторіал {i} дорівнює 3632400 ")

i=i+1

1)7

2)6

3)4

4)5

Объяснение:

1)так как в Python отщёт идёт от 0, то значениями і будут 0,1,2,3,4,5,6 , из за того, что отщёт идёт до 7, то есть останавливается на 6.

проверяется програмой: for i in range(7):

print(i)

2) 6, так как последнее значение і в цикле будет 6. Проверяется командой for i in range(7):

print(i)

print(i). Так как после цикла і будет иметь значение последнее из цикла, то есть 6.

3)Отщёт идёт от 3 до 7, значениями і будут 3,4,5,6. Проверяется командой

for i in range(3,7):

print(i)

4) Отщёт идёт от 3 до 17, через три цифры, по этому значениями і будут числа 3,6,9,12,15.

проверяется командой

for i in range(3,17,3):

print(i)

что подписался)