ТЕКСТ ЗАДАНИЯ Напишите преимущества и недостатки
растровой и векторной графики
ЗАГРУЗКА ФАйлов е
Добавить файл
Назад
Вперед
Активация Windows
Чтобы активировать Windo
"Параметры".​

1)
USES CRT;
VAR A:array[1..100] of Longint;   
s:integer;   
x,i:Longint;
BEGIN
CLRSCR;

      Repeat         
         Writeln('Введите 7-ми значное число');         
         Readln(x);         
         i:=x;         
         s:=0; 
        
         while i>0 do           
            begin             
               i:=i div 10;               
               s:=s+1;           
            end;       
  
        if s > 7 then Writeln('Вы ввели число больше');         
        if s < 7 then Writeln('Вы ввели число меньше');

         Writeln;
      until s=7;

      for i:=1 to 7 do       
         begin           
            A[i]:=x mod 10;           
            x:=x div 10;         
         end;

      for i:=1 to 7 do         
         Write(A[i],' ');

READLN;
END.

# Python 3.x

import numpy

# Вводим массив случайных целых чисел диапазона от -1000 до 1000.

array=numpy.array((numpy.random.random(30) * 2 - 1) * 1000, numpy.int)

print(array)

# Считаем сумму среза массива по условию нечетности элементов.

sumary=numpy.sum(array[array % 2 != 0])

print("Sumary: ", sumary)

#

A=int(input("A: "))

indexs=numpy.where(array > A)[0]

result=[str(index) for index in indexs] # для метода join требуются строковые значения.

print(f"Here indexs, more that {A}: ", ', '.join(result))

#

k=int(input("k: "))

positives=array[array >= 0]

required=positives[positives % k == 0]

print(len(required), f" positive items divisible {k}")