Var mas: array [1 ... 10] of integer;

k, i:integer;

begin

for i:=1 to 10 do

k:=0;

readln (a[i]) ;

k:=k+a[i];

writeln (a[i] '+') ;

write (k) ;

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

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.