Вопрос школьника по предмету Информатика
помогите пожалуйста! допустим имеется одномерный массив, содержащий числа от 0 до 49 включительно.требуется исключить из него все элементы, значения которых меньше 15.
Ответ учителя по предмету Информатика
Const N = 13;
Var
A,B:array[1..N] of integer;
i,j:integer;
Begin
Write(‘Исходный массив: ‘);
For i:= 1 to N do
Begin
A[i]:=random(50);
Write(A[i]:3)
End;
WriteLn;
Write(‘Переработанный массив:’);
j:=0;
For i:= 1 to N do
if A[i]>=15 then
Begin
j:=j+1;
B[j]:=A[i]
End;
For j:= 1 to j do
Write(B[j]:3)
End.
Пример:
Исходный массив: 29 8 19 3 0 11 39 9 34 4 45 15 3
Переработанный массив: 29 19 39 34 45 15
Похожие вопросы от пользователей
1) 2ц 2/11*7/8:7/11
2) 3ц 2/3*4ц 7/8:13/16
3) 1ц 1/3*2ц 2/3:4/9
4) 6ц 4/15*1/2:3ц 2/3
5) 8ц 1/3*1ц 5/7:2ц 8/21
6) 1ц 5/6*3ц 3/5*2ц 1/5
A) 1101; B) 1111; C) 1011; D) 1110