Интернет-зависимость
Сопоставь ситуацию с соответствующим решением.

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.

#include <cstdlib>
#include <iostream>

using namespace std;                        //ни чего особо не значит, чисто                                                                   //синтаксис,на алгоритм не влияет

int main()                      
{

 int n=0;

 int a=1;

 while(n<=100)

 {

  if(n%3==0 && n!=0)

  {

   a*=n;                                       //a=a*n

  }

  n++;                                         //n=n+1

 }

 cout<<"Произведение равно "<<a<<endl;
 system("PAUSE");
 return 0;
}

(Код написан на С++.)

#include <cstdlib>
#include <iostream>

using namespace std;

int main()
{

 int n=0;

 int a=1;

 while(n<=100)

 {

  if(n!=0)                                         //если умножить на 0 то а в итоге будет равно

   a*=n;                                           //0 (0 делиться на 3)

  n+=3;                                           //n=n+3   (каждое третье делиться на 3,                                                         //увеличиваем сразу на 3)

 }

 cout<<"Произведение равно "<<a<<endl;
 system("PAUSE");
 return 0;
}

(Код написан на С++.)