Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
VasiliyT
1

Найти среднюю стоимость k книг

06.06.2012, 22:05. Просмотров 1098. Ответов 1
Метки нет (Все метки)

Помогите решить!
Найти среднюю стоимость k книг.
Исходные данные:
https://www.cyberforum.ru/cgi-bin/latex.cgi?k\epsilon N,{S}_{i}\epsilon R,i=\bar{1,k}
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2012, 22:05
Ответы с готовыми решениями:

Найти среднюю стоимость грузовых автомобилей
Составить программу для выполнения указанного ниже задания. Исходные списки в программах описать в...

Найти среднюю стоимость журналов, тираж которых меньше 10000 экземпляров
Известны данные о цене и тираже каждого из 15 журналов.Найти среднюю стоимость журналов, тираж...

Определить среднюю стоимость тура на неделю в определенный класс отеля
Вот еще проблема, помогите пожалуйста в программе в списке не удаляются первые 2 строки .. В...

Составить программу, выводящую на экран список книг домашней библиотеки (автор, название книги, издательство, год издания, стоимость)
Составить программу, выводящую на экран список книг домашней библиотеки (автор, название книги,...

1
5 / 5 / 6
Регистрация: 26.05.2009
Сообщений: 37
06.06.2012, 22:12 2
Лучший ответ Сообщение было отмечено как решение

Решение

Если не нужно использовать списки или записи то так пойдет))
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
 
var
   i,k:integer;
   res,sum:real;
   a:array[1..100] of real;
 
begin
     clrscr;
     writeln('Vvedite kol-vo knig');
     readln(k);
     sum:=0;
     for i:=1 to k do
     begin
          Writeln('Vvedite stoimost knigi ', i);
          readln(a[i]);
          sum:=sum+a[i];
     end;
     res:=sum/k;
     writeln;
     writeln('Srednyaya stoimost = ', res:1:1);
     readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2012, 22:12

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Цикл repeat. Стоимость акций известной фирмы стабильно растёт на протяжении 6 месяцев. Найти стоимость акций
Пожалуйста решите с циклом repeat. Стоимость акций известной фирмы стабильно растёт на...

Верно ли, что средняя стоимость автомобилей превышает среднюю стоимость мотоциклов
Известны стоимости нескольких марок легковых автомобилей и мотоциклов. Верно ли, что средняя...

Записи. Найти среднюю стоимость автомобилей, возраст которых не привышает 6 лет.
известны стоимость и возраст каждой из пяти моделей легковых автомобилей. найти среднюю стоимость...

Определить,среднюю стоимость обуви каждого цвета
Есть сведения о партии обуви:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.