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

uses crt;

var

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

begin

clrscr;

mas[1]:=14;

mas[5]:=29;

mas[9]:=80;

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

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

readkey;

end.

Дана программа на языке программирования Паскаль. Запиши данную программу и запусти. uses crt; var mas, A: array[1 ... 10] of real; begin clrscr; mas[1]:=10; mas[5]:=27; mas[9]:=88; A[1]: = (mas[9]-mas[1]) * mas[5]; write (A[1]:5:0) ; readkey; end.

Дана программа на языке программирования Паскаль. Запиши данную программу и запусти. uses crt; var mas, A: array[1 ... 10] of real; begin clrscr; mas[1]:=11; mas[5]:=27; mas[9]:=89; A[1]: = (mas[9]-mas[1]) * mas[5]; write (A[1]:5:0) ; readkey; end.

Дана программа на языке программирования Паскаль. Запиши данную программу и запусти. uses crt; var mas, A: array[1 ... 10] of real; begin clrscr; mas[1]:=11; mas[5]:=33; mas[9]:=92; A[1]: = (mas[9]-mas[1]) * mas[5]; write (A[1]:5:0) ; readkey; end.

Определите и запишите, что будет выдавать программа по завершению. uses crt; var mas, A: array[1 ... 10] of integer; begin clrscr; mas[1]:=10; mas[5]:=25; mas[9]:=16; A[1]: = (mas[9]-mas[1]) * mas[5]; write (A[1]) ; readkey; end.

Var s, i:integer; Mas: array[1 ... 10] of integer; begin Mas[1]:=14; Mas[2]:=10; Mas[3]:=-8; Mas[4]:=6; Mas[5]:=12; Mas[6]:=4; Mas[7]:=-16; Mas[8]:=-7; Mas[9]:=5; Mas[10]:=3; s:=0; for i:=1 to 5 do Mas[2*i]:=-Mas[2*i-1];