QBasic

[klounesko]

дан массив целых чисел ( n= 10 ), заполненных случайным образом числами из промежутка [ -40.30].
1) удалить из него все элемнты , которые состоят из одинаковых циифр ( включая однозначные числа).
2) вставить число k перед всеми элементами,в которых есть цифра один ( k - с клавиатуры).
3) переставить первые три и последние три элемента местами, сохроняя их следование.

[Utkin]

Чтобы не париться со всеми этими заморочками я бы использовал два массива - с одного читал, а во второй переписывал.

[alexcoder]

Помочь с чем? Где хоть строчка написанного вами кодом?
Могу помочь за вознаграждение.

[klounesko]

Сообщение от Utkin

Чтобы не париться со всеми этими заморочками я бы использовал два массива - с одного читал, а во второй переписывал.

спасибо попробую)

[klounesko]

CLS
PRINT "Контрольная работа. Вариант 13."
PRINT "Кто сделал?"
DIM A(10)
FOR I = 1 TO 10
A(I) = INT((30 - (-40) + 1) * RND + (-40))
PRINT A(I);
NEXT I
PRINT
PRINT "Задание 1"
DIM B(10)
FOR I = 1 TO 10
B(I) = A(I)
J = ABS(B(I)) \ 10
H = ABS(B(I)) MOD 10
IF J = H THEN
ELSE
IF ABS(B(I)) <= 9 THEN
ELSE
PRINT B(I);
END IF
END IF
NEXT I
PRINT
PRINT "Задание 2"
INPUT "Укажите число К"; K
DIM C(10)
FOR I = 1 TO 10
C(I) = A(I)
O = ABS(B(I)) \ 10
L = ABS(B(I)) MOD 10
IF O = 1 THEN
PRINT K; B(I);
ELSE
IF L = 1 THEN
PRINT K; B(I);
ELSE
PRINT B(I);
END IF
END IF
NEXT I
PRINT
PRINT "Задание 3"
DIM D(10)
FOR I = 1 TO 10
D(I) = A(I)
D(1) = A(8)
D(2) = A(9)
D(3) = A(10)
D(8) = A(1)
D(9) = A(2)
D(10) = A(3)
PRINT D(I);
NEXT I
END

вот что получилось

[Natalya17]

сделайте пожайлуста такую же задачку только в паскале прошу!!!!!напечатайте тут бесплатно!