Урок 9 октября

Пример задачи

Дан массив D, состоящий из 5 элементов. На-ть программу, уменьшаемый каждый элемент на 4 

        

var A:  array[1..5] of integer;  i :  integer ;     { описание переменных }

begin

for I := 1 to 5 do read (a[i]);  { заполнение массива c клавиатуры}

for i:=1 to 5 do A[i]:= A[i]-4; {уменьшение каждого элемента массива на 4}

For i:=1 to 5 do write(А[i], '  ,'); { вывод всех чисел через  , }

End.