Имеется целочисленный массив, состоящий из 10 элементов, элементы вводятся с клавиатуры, найти разность а[9]и а[3] элементов

Question

Венюша

24 марта, 04:31

+1

Ответы (1)

Знаете ответ на вопрос?

Иринарх · Answer 1

Var a:array[1 ... 10] of integer; i:integer;

begin

for i:=1 to 10 do read (a[i]) ;

writeln ('Разность=', a[9]-a[3]) ;

end.