Если решать с вашими константами: 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.
#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; }
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.