1. Составьте программу, которая
вычисляет сред­нюю плотность раствора (в кг/м3) по результатам из­мерения
плотности 7 проб (задаются в массиве кон­стант: 1205, 1350, 1170, 1320, 1220,
1310, 1180).

2

Ответы и объяснения

2013-10-22T19:03:18+00:00
Program nikitos1515;
const mas:array[1..7] of integer = (1205, 1350, 1170, 1320, 1220, 1310, 1180);
var i:integer;   
sredn:real;
begin
for i:=1 to 7 do
sredn:=sredn+mas[i];
sredn:=sredn/7;
writeln('Средняя плотность раствора =',sredn);
end.
2013-10-22T19:05:09+00:00
Если решать с вашими константами:
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.
В твоих решениях нет констант вообще) Константы указываются в разделе описания констант - const. И тут нужно не предлагать свои варианты условия, а решать четко поставленную перед тобой задачу.
Комментарий удален
Не страшно)