Ответ:
1. Имя qt. Элементов 19. Тип данных real (вещественные числа)
2. Значение 15, индекс 1
3. а: array [1..20] of integer
4. a[i]:=random (31)
5. 6, 9, 14, 21, 30
Объяснение:
1. 23-5+1=24-5=19
2. А[4]=15 А[1]=26
5.
a[1]=5+1*1=5+1=6
a[2]=5+2*2=5+4=9
a[3]=5+3*3=5+9=14
a[4]=5+4*4=5+16=21
a[5]=5+5*5=5+25=30
<span>Миллиметр ртутного столба</span>
Begin
writeln(350/2/3*60,' секунд');
<span>end.</span>
Var A : array[1..12] of integer; i,max : integer;
begin
for i:=1 to 12 do
begin;
read(A[i]);
if A[i]>max then max:=A[i];
end;
Writeln(max);
end.