Question

№1. Дан массив напечатать:1)все неотрицательные элементы.2)все элементы не превышающие числа 10№2дан массив целых чисел.Напечатать:1)все элементы кратные 52)все элементы заканчивающиеся 0

Answer 1

№1 1)2)
var a:array[1..5]of integer;
i:byte;
begin
for i:=1 to 5 do
readln(a[i]);
writeln();
for i:=1 to 5 do
if (a[i]>0) and (a[i]<10) then begin
writeln(a[i]);
end;
end.

Answer 2

№1. Дан массив, необходимо напечатать: 1) все неотрицательные элементы 2) все элементы, не превышающие число 10

Для решения этой задачи можно использовать цикл, который будет проходить по каждому элементу массива и проверять условия.

1) Для печати всех неотрицательных элементов можно использовать следующий код:

arr = [1, -2, 3, -4, 5, -6]
for num in arr:
    if num >= 0:
        print(num)

Результат выполнения кода: ``` 1 3 5 ```

2) Для печати всех элементов, не превышающих число 10, можно использовать следующий код:

arr = [1, 20, 5, 12, 8, 3]
for num in arr:
    if num <= 10:
        print(num)

Результат выполнения кода: ``` 1 5 8 3 ```

№2. Дан массив целых чисел, необходимо напечатать: 1) все элементы, кратные 5 2) все элементы, заканчивающиеся на 0

Аналогично предыдущей задаче, для решения можно использовать цикл и проверять условия.

1) Для печати всех элементов, кратных 5, можно использовать следующий код:

arr = [10, 25, 14, 35, 40, 8]
for num in arr:
    if num % 5 == 0:
        print(num)

Результат выполнения кода: ``` 10 25 35 40 ```

2) Для печати всех элементов, заканчивающихся на 0, можно использовать следующий код:

arr = [10, 25, 14, 35, 40, 8]
for num in arr:
    if num % 10 == 0:
        print(num)

Результат выполнения кода: ``` 10 40 ```

В обоих случаях цикл проходит по каждому элементу массива и проверяет условия. Если условие выполняется, то элемент печатается.