Дан одномерный массив, состоящий из 10 элементов. Пользователь вводит элементы массива. Вывести массив на экран в строку. Найти сумму первого и второго элементов массива, разность последнего и первого элементов массива.
Паскаль
Паскаль
More Questions From This User See All
Answers & Comments
Ответ:
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.