5.28суретте берілген үйдің моделін құру үшін қандай құралдарды қолдануға болады?​

Если решать с вашими константами:
program test;
uses crt;
var a:array [1..10] of integer;
i: integer;
rez:real;
begin
rez:=0;
a[1]=1205; a[2]=1350; a[3]=1170; a[4]=1320; a[5]=1220; a[6]=1310; a[7]=1180; 
for i:=1 to 7 do
rez:=rez+a[i];
rez:=rez/7;
write('rez = ',rez);
end.

Но, я предлагаю, чтобы пользователь сам вводил 7 значений, это так:
program test;
uses crt;
var a:array [1..10] of integer;
i: integer;
rez:real;
begin
rez:=0;
for i:=1 to 7 do
read(a[i]);
for i:=1 to 7 do
rez:=rez+a[i];
rez:=rez/7;
write('rez = ',rez);
end.

Для Microsoft Visual Studio 2012

#include <iostream>
using namespace std;
void main(){
setlocale(0,"");
int a,b=0,c,d=0;
cout<<"Введите длину посдедовательности ";cin>>c;
do {cout<<"Введите число: ";cin>>a;b=b+a; d++;} while(d!=c);
cout<<"Сумма чисел в последовательности = "<<b;
cin.get();
cin.get();
}

Для Microsoft Visual Studio 2006

#include <iostream.h>
void main(){
int a,b=0,c,d=0;
cout<<"Введите длину посдедовательности ";cin>>c;
do {cout<<"Введите число: ";cin>>a;b=b+a; d++;} while(d!=c);
cout<<"Сумма чисел в последовательности = "<<b;
}

2 вариант этой же программы

Для Microsoft Visual Studio 2012

#include <iostream>
using namespace std;
void main(){
setlocale(0,"");
int a,b=0,c;
char d;
do {cout<<"Введите число: ";cin>>a;b=b+a; cout<<"Хотите ввести еще число?(y/n)";cin>>d;} while(d!='n');
cout<<"Сумма чисел в последовательности = "<<b;
cin.get();
cin.get();
}

Для Microsoft Visual Studio 2006

#include <iostream.h>
void main(){
int a,b=0,c;
char d;
do {cout<<"Введите число: ";cin>>a;b=b+a; cout<<"Хотите ввести еще число?(y/n)";cin>>d;} while(d!='n');
cout<<"Сумма чисел в последовательности = "<<b;
}