1)var t: array [1..12] of real;
i: integer;
begin
for i:=1 to 12 do readln(t[i]);
writeln('Средняя температура зимних месяцев: ',((t[12]+t[1]+t[2])/3):0:3);
writeln('Средняя температура весенних месяцев: ',((t[3]+t[4]+t[5])/3):0:3);
writeln('Средняя температура летних месяцев: ',((t[6]+t[7]+t[8])/3):0:3);
writeln('Средняя температура осенних месяцев: ',((t[9]+t[10]+t[11])/3):0:3);
end.
2)var t: array[1..10] of integer;
c: array[1..10] of real;
i: integer;
s,s1: real;
begin
s:=0;
for i:=1 to 10 do begin writeln('Введите количество товара'); readln(t[i]) ; end;
for i:=1 to 10 do begin writeln('Введите цену товара');readln(c[i]);end;
for i:=1 to 10 do begin s1:=t[i]*c[i];
s:=s+s1;
end;
writeln('Общая стоимость всех покупок: ',s:0:3);
end.
1. введите N.
2. цикл for от 1 до N будем вводить 'элементы массива x[i]/
3. в цыкле от 1 до N бедем выводить на экран массив writeln(x[i]) и считаем сумму. если в программе выполнять, то это будет выглядеть так
write('введите N'); readln(n);
for i:=1 to n do begin write('введите ',i,' элемент массива');
readln (x[i]);
end;
sum:=0;
for i:=1 t0 n do begin
write(' ',x[i]);
sum:=sum+x[i];
end;
write('а сумма всех элементов = ',sum);
