Const
N = 10;
Var
A:array[1..N] of integer;
i,b:integer;
Begin
Write('b = ');ReadLn(b);
Write('Введите массив: ');
For i:= 1 to N do
Read(A[i]);
Write('Новый массив:');
For i:= 1 to N do
Begin
A[i]:=A[i]-b;
Write(' ',A[i])
End;
End.
Const
N = 10;
Var
A:array[1..N] of integer;
i:integer;
Begin
Write('Введите массив: ');
For i:= 1 to N do Read(A[i]);
Write('Новый массив:');
For i:= 1 to N do
Begin
A[i]:=A[i]-A[N];
Write(' ',A[i])
End;
End.
Ответ:
a = int(input('Введите число параметр (которому все остальные должны быть кратны): '))
b = input('Введите числа: ').split()
counter = 0
suma = 0
for i in b:
if int(i) % a == 0:
suma += int(i)
counter += 1
print(suma/counter)
Объяснение:
program Znanija;
var V,S,T:integer;
begin
read(S,T);
v=S/T;
write(V);
end.
для удобства соыетую юзесы)
В какой программе можно рисовать фигурами (wordpad)
есть 2003 ,2004и 2007(wordpard)
можно подключить пакет из другой программы(wordpard)
В 1834 году было изобретено челночное устройство швейной машины. Изобрел его Уолтер Хант.