К промышленному образцу относятся конструктивное выполнение изделия художественно-конструкторское решение

Исходные данные: П=12; В=10; С=16; Ч=18; П=17; С=16; В=14.
Выходные данные: 14.71

Код на Паскаль:
program z_6;
var i: integer;
s: real;
a: array [1..7] of real;
d: array [1..7] of string;
BEGIN
s:=0;
writeln ('Введите температуру');
for i:=1 to 7 do begin
if i=1 then write('Понедельник>>');
if i=2 then write('Вторник>>');
if i=3 then write('Среда>>');
if i=4 then write('Четверг>>');
if i=5 then write('Пятница>>');
if i=6 then write('Суббота>>');
if i=7 then write('Воскресенье>>');
readln (a[i]);
s:=s + a[i];
end;
s:=s/7;
writeln('Средняя температура за неделю: ', s:0:2);
END

а) for i:=1 to 10 do a[i]:=random(101)-50
Данный массив будет сформирован следующим образом: значениям массива от a[1] до a[10] будет присвоено случайное целое число, принадлежащее отрезку [-50; 50];

б) for i:=1 to 20 do a[i]:=a[i]:=i
Значениям массива от a[1] до a[20] будет справедливо следующее: i-му массиву будет присвоено i-е значение(будет присвоено значение, совпадающее с индексом элемента);

в) for i:=1 to 5 do a[i]:=a[i]:=2*i-1
Значениям массива от a[1] до a[5] будет справедливо следующее: i-му массиву будет присвоено разность чисел (2*i) и единицы.