Question

Дана программа на языке программирования Паскаль. Запиши данную программу и запусти. uses crt;varmas, A: array[1..10] of real;beginclrscr;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.»

Answer 2

Вот программа на языке Pascal, как вы запросили:

pascalCopy code
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.

Чтобы запустить эту программу на Паскале, вы можете использовать среду разработки, такую как Free Pascal или Turbo Pascal. Скопируйте код в среду разработки и запустите программу. Она вычислит значение выражения (mas[9] - mas[1]) * mas[5] и выведет результат на экран.