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

Question

Дениса

1 января, 23:06

+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.