Question

Дана программа на языке программирования Паскаль. Запиши данную программу и запусти.


uses crt;

var

mas, A: array[1..10] of real;

begin

clrscr;

mas[1]:=13;

mas[5]:=31;

mas[9]:=79;

A[1]:=(mas[9]-mas[1])*mas[5];

write(A[1]:5:0);

readkey;

end.

Answer 1

программа выведет «2046.»