Дан одномерный массив размерностью N, заполненный случайными числами в интервале от -15 до 20. Вывести на экран значения элементов массива, абсолютное значение которых >10.

Есть ответ
12.12.2022
291

Ответ


Ответ:
Program abc;
Const n=35;
Var a, b:array[1.. N] of integer;
i, j:integer;
Begin
Randomize;
For i:=1 to N do
a[i]:= random (20)-15;
For i:=1 to N do
Write (a[i]:4);
j:=1;
For i:= 1 to N do
If a[i]>10 then
Begin
b[j]:=a[i];
Inc[j];
End;
For i:= 1 to N do
Write(b[i],' ');
Readln;
End.


Объяснение:могу быть не прав



Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
12.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.