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];

write (i)

end

Получиться I=5 Почему?

Cрочно! паскаль var m, k, i; integer; mas; array [1 ... 10] of integer; begin mas[1]:=14; mas[2]:=44; mas[3]=72; mas [4]:=36; mas[5]:=58; mas[6]:=57; mas[7]:=48; mas[8]:=91; mas[9]:=62; mas[10]:=45;

Определите, что будет напечатано в результате выполнения следующего алгоритма var k, m, i: integer; mas:array[1 ...

Program pr; var mas: array[1 ... 10] of integer; i, min, ind: integer; Begin randomize; For i:=1 to 10 do Begin mas[i]:=Random (100) ; write (mas[i], ' ') ; End; writeln () ; min:=mas[1]; For i:=1 to 10 do Begin If (min>mas[i]) then 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.

Укажите верное описание целочисленного массива mass, состоящего из 10 элементов. Интервал значений элементов [0; 100] 1) var mass:array of integer; 2) var mass:array[1 ... 10] of integer; 3) var mass:array[0 ... 100] of integer; 4) var mass:array[0 .