Удалить из массива все единичные элементы

@qwe343 · Регистрация: 22.04.2014

Author24 — интернет-сервис помощи студентам

Дан массив С, состоящий из n целых положительных элементов. Удалить из массива все единичные элементы.

@tomb2002 · 22.04.2014, 20:37

Pascal

Program Lab1;
Uses CRT;
CONST
n = 20;
Var
a, i : byte;
C : array [1..n] of byte;
BEGIN
clrscr;
Randomize;
WriteLn('Введите число элементов в массив C но не больше 20 : ');
ReadLn(a);WriteLn('Наш массив C :');
FOR i:=1 TO a Do
  Begin
    C[i] := random(25) + 1;
    write(C[i]:3);
  End;WriteLn;
WriteLn('Массив без единичных элементов :');
FOR i:=1 TO a DO
  IF C[i] > 9 THEN write(C[i]:3);
Readkey
END.

@qwe343 0 / 0 / 0 Регистрация: 22.04.2014 Сообщений: 4
		1
	Удалить из массива все единичные элементы 22.04.2014, 19:34. Показов 1106. Ответов 1 Метки нет (Все метки) Дан массив С, состоящий из n целых положительных элементов. Удалить из массива все единичные элементы. 0

	22.04.2014, 20:37

Удалить из массива все единичные элементы

Решение