Решить : дан вектор из 25 элементов. найти минимальное значение. записать на языке pascal и построить алгоритм.

Program  chik; var  a: array[1..100]of  integer; i,min: integer; begin for  i: =1  to  25  do begin read(a[i]); end; min: =a[1]; for i: =2  to  25  do begin if(a[i]< min)then  min: =a[i]; end; write(min); end.

какие команды присваивания составлены правильно?

а) а: =в (верно для pascal, delphi)

б) а=в (верно для многих языков программирования, но не всех)

в) а=в+1 (верно для многих языков программирования, но не всех)

г) а+1: =а (не верно)

2. сколько промежуточных переменных потребуется для того,чтобы переменной а было присвоено значение переменной в, переменной в- значение переменной с, а переменной с- значение переменной а? запишите соответствующий алгоритм на алгоритмической языке.

t : = c

c : = a

a : = b

b : = t

одна дополнительная переменная

Program task; var a: array [1..40] of integer; b: real; c, d, e, i: integer; begin randomize; for i : = 1 to 40 do a[i] : = random(20 + 1); writeln('массив: '); for i : = 1 to 40 do write(a[i], ' '); writeln; for i : = 1 to 40 do begin if a[i] mod 2 = 1 then begin b : = b + a[i]; c : = c + 1; end; if a[i] < = 10 then d : = d + a[i]; if a[i] mod 3 = 0 then e : = e + a[i]; end; writeln('среднее арифметическое нечётных чисел: ', (b / c): 2: 2); writeln('сумма чисел, не превышающих 10: ', d); writeln('сумма чисел кратных 3: ', e); readln; end.