1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все нечетные элементы с четными индексами на нули. Выведите на экран исходный и полученный массивы.

2. Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все его положительные элементы на наибольший отрицательный элемент. Выведите на экран исходный и полученный массивы.

Question

Информатика

Гител

13 июля, 03:33

1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все нечетные элементы с четными индексами на нули. Выведите на экран исходный и полученный массивы.

2. Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все его положительные элементы на наибольший отрицательный элемент. Выведите на экран исходный и полученный массивы.

+1

Ответы (1)

Знаете ответ на вопрос?

Зарафат · Answer 1

№1var r, n:integer; C:Array[0 ... 9]of integer; Beginfor r:=0 to 9 do beginC[r]: = random (50) - 25; write (C[r]:4) ; if (abs (C[r]) mod 2 = 1) and (r mod 2 = 0) then C[r] : = 0; end; writeln; foreach n in C dowrite (n:4) ; end.№2var r, n, m, max, k:integer; C:Array[0 ... 9]of integer; Beginmax:=-30; for r:=0 to 9 do beginC[r]: = random (50) - 25; write (C[r]:4) ; if (C[r] < 0) and (max 0 then C[r]: = max; end; writeln; foreach n in C dowrite (n:4) ; end.