Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon задачка

задачка - вопрос №437560

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

Алёна
24.10.12
Учеба и наука / Информатика
1 ответ

Ответы

Валентина

program proba;

const a:array[1..7] of integer=(1205, 1350, 1170, 1320, 1220, 1310, 1180); 

var i,s:integer;

sr:real;

begin

 s:=0;

for i:=1 to 7 do

  s:=s+a[i];

sr:=s/7;

writeln('sred plotnosty=',sr:10:2);

readln

end.

Буду благодарна, если отметите 
24.10.12

Еva
от 100 p.
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее