Написать программу для:

+ 0 -

Manny2218895

16 дек. 2016 г., 12:20:19 (7 лет назад)

Написано в Pascal:

Program Zadacha;
Const n = 10;
Var a: Array [1..n] of Integer;
B, c, i, j: Integer;
d, e: Boolean;
Begin
WriteLn('Введите ', n, ' целых чисел через пробел и нажмите Enter');
For i := 1 To n Do
Read(a[i]);
Write('B = ');
ReadLn(B);
c := 0;
For i := 1 To n Do
If a[i] < 0 Then
c := c + 1;
WriteLn('Количество отрицательных элементов массива равно ', c);
d := False;
For i := 1 To n Do
Begin
c := a[i];
For j := i + 1 To n Do
If c = a[j] Then
d := True;
End;
If d = True Then
WriteLn('В массиве есть одинаковые элементы')
Else
WriteLn('В массиве нет одинаковых элементов');
e := False;
For i := 1 To n Do
If a[i] = B Then
e := True;
If e = True Then
WriteLn('В массиве есть элемент, равный ', B)
Else
WriteLn('В массиве нет элемента, равного ', B);
ReadLn;
End.

+ 0 -

Vk240

16 дек. 2016 г., 15:19:57 (7 лет назад)

Язык Python

A = [1,2,3,4,5,6] # Массив
B = 10

# 1 Задание
A.sort()
if A[0]<0:
  print "Есть отрицательные элементы"
else:
  print "Отрицательных элементов нет"
# 2 задание
cnt = len(A)
for i in A:
  if A.count(i)>1:
    print "Есть повторяющиеся элементы"
    break
  cnt-=1
if not cnt:
  print "Повторяющихся элементов нет"
# 3 задание
if B in A:
  print "В входит в массив"
else:
  print "В не входит в массив"

+ 0 -

Golcovaoksana

16 дек. 2016 г., 16:41:56 (7 лет назад)

Массмв вводится с клавиатуры мли каждый раз случайно заполняется?

+ 0 -

олялячка

16 дек. 2016 г., 19:35:52 (7 лет назад)

Массив*, или*

+ 0 -

Irinka1234554

16 дек. 2016 г., 20:45:04 (7 лет назад)

с клавиатуры