Pascal задача: в одномерном массиве состоящий из 3 элементов найти разность всех чисел

Решить задачу в Pascal:
В одномерном массиве состоящий из 3 элементов найти разность всех чисел

Только авторизированные пользователи могут оставлять свои ответы

Дата

Популярность

user_27493017

Новичок

5лет

Program P1;
uses crt;
var a: array [1..3] of real;
i: integer;
r: real;
begin
clrscr;
for i:=1 to 3 do begin
write ('Введите элемент массива: ');
readln (a[i]);
end;
for i:=1 to 3 do begin
r:=a[1]-a[2]-a[3];
end;
write ('Ответ: разность элементов массива равна: ', r);
readkey;
end.