Работа на уроке 16 и17 сентября

 Задача введите 5 чисел, каждае умножте на 3 и выведите новые числа

var a: array[1..5] of integer; i : integer ;
begin
 for  i := 1 to 5 do  read(a[i]);
 for  i := 1 to 5 do   a[i]:=a[i]*3;
 for  i := 1 to 5 do  writeln(a[i]);
end.

Если внутри цикла изменить счетчик, то в 3 раза будет изменяться каждый нечетный элемент

или каждый четный.

Но лучше проверять условие. Это на следующем уроке