Question

Па паскале, пожалуйста помогите!!!
С клавиатуры вводится массив из 10 элементов. Увеличить все элементы кратные 5 на 2. Вывести полученный массив. Ввод осуществить в столбик с подсказкой.
ЗАРАНЕЕ СПАСИБО!!!
​

Answer 1

Ответ:

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.

Объяснение:

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