Имеется целочисленный массив, состоящий из 10 элементов, элементы вводятся с клавиатуры,найти разность а[9]и а[3] элементов
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.