Предмет: Информатика,
автор: арsick
дан одномерный массив натуральных чисел.вывести на экран :1) все трехзначные числа содержащиеся в нем 2)номера всех четырехзначных чисел
Ответы
Автор ответа:
0
Const
N = 33;
Var
A:array[1..N] of integer;
i:integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(100000)-50000;
Write(' ',A[i]);
End;
WriteLn;
WriteLn;
Write('Трёхзначные числа:');
For i:= 1 to N do
if (99<Abs(A[i]))and(Abs(A[i])<1000) then Write(' ',A[i]);
WriteLn;
Write('Номера четырёхзначных чисел:');
For i:= 1 to N do
if (999<Abs(A[i]))and(Abs(A[i])<10000) then Write(' ',i)
End.
Пример:
Исходный массив: 12916 46699 20251 -36637 -14335 -33817 -25279 -5819 -6258 23375 15258 1264 10987 42877 9875 3515 -22647 -791 47876 -319 -23437 -43546 -46174 -29378 -17999 -37325 -10130 -38120 -40079 -12188 -34612 -17302 28074
Трёхзначные числа: -791 -319
Номера четырёхзначных чисел: 8 9 12 15 16
N = 33;
Var
A:array[1..N] of integer;
i:integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(100000)-50000;
Write(' ',A[i]);
End;
WriteLn;
WriteLn;
Write('Трёхзначные числа:');
For i:= 1 to N do
if (99<Abs(A[i]))and(Abs(A[i])<1000) then Write(' ',A[i]);
WriteLn;
Write('Номера четырёхзначных чисел:');
For i:= 1 to N do
if (999<Abs(A[i]))and(Abs(A[i])<10000) then Write(' ',i)
End.
Пример:
Исходный массив: 12916 46699 20251 -36637 -14335 -33817 -25279 -5819 -6258 23375 15258 1264 10987 42877 9875 3515 -22647 -791 47876 -319 -23437 -43546 -46174 -29378 -17999 -37325 -10130 -38120 -40079 -12188 -34612 -17302 28074
Трёхзначные числа: -791 -319
Номера четырёхзначных чисел: 8 9 12 15 16
Похожие вопросы
Предмет: Қазақ тiлi,
автор: nurbolatakbota01
Предмет: История,
автор: avercenkoaliev
Предмет: Алгебра,
автор: milana24042011
Предмет: История,
автор: Аноним