Одномерные массивы паскаль

Заменить все элементы массива, большие второго и меньшие пятого, на сумму второго и пятого.

Question

Информатика

Кирилична

11 июля, 09:34

Одномерные массивы паскаль

Заменить все элементы массива, большие второго и меньшие пятого, на сумму второго и пятого.

+3

Ответы (1)

Знаете ответ?

Егор · Answer 1

Const n = 10;

var a : array [1 ... n] of integer; i : integer;

begin

for i: = 1 to n do readln (a[i]) ; for i: = 1 to n do if (a[i] > a[2]) and (a[i] < a[5]) and (i 2) and (i 5) then a[i]: = a[2] + a[5];

end.

Одномерные массивы паскальЗаменить все элементы массива, большие второго и меньшие пятого, на сумму второго и пятого.

Одномерные массивы паскаль

Заменить все элементы массива, большие второго и меньшие пятого, на сумму второго и пятого.