Question

Дан одномерный массив, состоящий из 10 элементов. Пользователь вводит элементы массива. Вывести массив на экран в строку. Найти сумму первого и второго элементов массива, разность последнего и первого элементов массива.
Паскаль

Answer 1

Ответ:

FreePascal

const

 n=10;

var

 a : array [0..n] of integer;

 i : integer;

begin

 writeln('Введите массив A: ');

 for i:=0 to n-1 do begin

   write('a[',i,']=');

   readln(a[i]);

 end;

 for i:=0 to n-1 do write(a[i], ' ');

 writeln();

 writeln('a[0] + a[1]=', a[0]+a[1]);

 writeln('a[0] - a[9]=', a[0]-a[9]);

end.