Из паскаля в С++

@Egor.S · Регистрация: 02.10.2011

Author24 — интернет-сервис помощи студентам

Pascal

Program lab5;
Var a:array[1..1000] of integer;
n,I,min,k:integer;
P:longint;
s:real;
Begin
Writeln('введите размерность массива');
Readln(n);
For i:=1 to n do
Begin
Writeln('Введите элемент массива');
Readln(a[i]);
End;
s:=0;
min:=a[1];
k:=1;
For i:=1 to n do
If min<a[i] then
begin
min:=a[i];
k:=i;
end;
For i:=1 to k do s:=s+a[i];
Writeln('среднее арифметическое =',s/k:4:4);
Readln;
End.

Помогите переписать это на С++

@g-h · 05.06.2012, 19:27

Код

#include "stdafx.h"
#include "iostream"
using namespace std;


int _tmain(int argc, _TCHAR* argv[])
{
	setlocale(LC_ALL, "russian");

	int a[1000];				// a:array[1..1000] of integer
	int n, I, min, k;			// n, I, min, k: integer
	unsigned int P;				// P: longInt;
	float s;					// s: real

	cout << "Введите размерность массива ";
	cin >> n;

	for (I=0; I<n; I++)
	{
		cout << "Введите элемент массива ";
		cin >> a[I];
	}

	s = 0;
	min = a[0];
	k = 1;

	for (I=0; I<n; I++)
		if (min < a[I])
		{
			min = a[I];
			k = I;
		}

	for (I=0; I<k; I++)
		s = s + a[I];

	cout << "Среднее арифметическое = " << s/k << endl;


	system("pause");			// Readln;
	return 0;
}

Добавлено через 18 минут
Вот еще что хочу дописать. В с++ индексы в массиве нумеруются не так как в паскале. Там всегда от нуля начинаются.

	05.06.2012, 19:27