переведите из Паскаля в с++

Question

переведите из Паскаля в с++

Марина Пармезанова Ученик (80), закрыт 8 лет назад

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.

Answer 1

#include "stdafx.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int n;
int a;
int s = 0;
cout << "Введите число N" << endl;
cin >> n;
for (int i = 1; i <= n; i++){
cout << "Введите число" << endl;
cin >> a;
s += a;
}
cout << s / n << endl;
cin.get();
cin.get();
return 0;
}

Answer 2

#include <iostream>
#include <iomanip>

int main() {
int n;

std::cout << "Type in N: ";
std::cin >> n;

if (n == 0) {
std::cerr << "N can't be zero." << std::endl;
return 1;
}

double a, s = 0;

for (int i = 1;i <= n; ++i) {
std::cout << "Type in a: ";
std::cin >> a;
s += a;
}

s /= n;

std::cout << "Median = " << std::setw(4) << std::setprecision(2) << s;

return 0;
}