Одномерные массивы паскальЗаменить все элементы массива, большие второго и меньшие пятого, на сумму второго и пятого.
Одномерные массивы паскаль
Заменить все элементы массива, большие второго и меньшие пятого, на сумму второго и пятого.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы