Mail.ru
Почта
Мой Мир
Одноклассники
ВКонтакте
Игры
Знакомства
Новости
Календарь
Облако
Заметки
Все проекты
Все проекты
выход
Регистрация
Вход
Категории
Все вопросы проекта
Компьютеры, Интернет
Темы для взрослых
Авто, Мото
Красота и Здоровье
Товары и Услуги
Бизнес, Финансы
Наука, Техника, Языки
Философия, Непознанное
Города и Страны
Образование
Фотография, Видеосъемка
Гороскопы, Магия, Гадания
Общество, Политика, СМИ
Юридическая консультация
Досуг, Развлечения
Путешествия, Туризм
Юмор
Еда, Кулинария
Работа, Карьера
О проектах Mail.ru
Животные, Растения
Семья, Дом, Дети
Другое
Знакомства, Любовь, Отношения
Спорт
Золотой фонд
Искусство и Культура
Стиль, Мода, Звезды
Полный список
Спросить
Лидеры
Поиск по вопросам
Ответы Mail.ru
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Вопросы - лидеры.
Visual Basic 6.0 Помогите пожалуйста
1 ставка
Какие есть известные алгоритмы методом сложной рекурсии ?
1 ставка
Почему язык Ада считается большим и сложным для полного овладения ?
1 ставка
Кто-нибудь решите, пожалуйста. ПРОШУ, ОЧЕНЬ СРОЧНО НАДО.
1 ставка
Написать макрос Word, меняющий раскладку
1 ставка
Лидеры категории
Лена-пена
Искусственный Интеллект
М.И.
Искусственный Интеллект
Y.Nine
Искусственный Интеллект
•••
Помогите перевести программу из языка pascal в c++
Мирослава Карпова
Ученик
(215), закрыт
9 лет назад
Var n,i,a:integer;
s:real;
Begin
Writeln('введите число N');
Readln(n);
For i:=1 to N do
Begin
Writeln('введите число');
Readln(a);
s:=s+a;
end;
Writeln('среднее арифметическое= ',s/n:4:2);
Readln;
End.
Лучший ответ
Димос Тцарев
Гуру
(3437)
9 лет назад
http://otvet.mail.ru/question/171299710
Остальные ответы
Krab Bark
Искусственный Интеллект
(191662)
9 лет назад
#include<iostream>
using namespace std;
int main(){
float a,s=0; int n; cout<<"n: "; cin>>n;
cout<<"Enter "<<n<<" numbers\n";
for(int i=0;i<n;i++)cin>>a,s+=a;
cout<<"Averige="<<s/n<<endl;
cin.get(); cin.get();}
Похожие вопросы
s:real;
Begin
Writeln('введите число N');
Readln(n);
For i:=1 to N do
Begin
Writeln('введите число');
Readln(a);
s:=s+a;
end;
Writeln('среднее арифметическое= ',s/n:4:2);
Readln;
End.