Па паскале, !
с клавиатуры вводится массив из 10 элементов. увеличить все элементы кратные 5 на 2. вывести полученный массив. ввод осуществить в столбик с подсказкой.
заранее !
​

var a:array [1..10] of integer;

i:integer;

begin

for i:=1 to 10 do

begin

write ('Введите ',i:2,' элемент массива и нажмите Enter ');

read (a[i])

end;

writeln;

write ('Массив ');

for i:=1 to 10 do write (a[i],'  ');

writeln;

write ('Массив ');

for i:=1 to 10 do  

begin

if a[i] mod 5 = 0 then a[i]:=a[i]+2;

write (a[i],'  ')

end

end.

Объяснение:

Сначала в строку выводится введённый массив, потом массив после изменений.