Перевод кода с паскаля на язык с++ - Turbo Pascal

Формулировка задачи:

Здравствуйте,помогите перевести паскаль на С++ writeln - cout,я понял а остальное
Program fff;
Const
n = 5;
type
mas = array[1..n] of real;
var
a,b,x: mas;
i: byte;
begin
randomize;
 
for i:=1 to n do a[i] := Random(100);
writeln('Оригинальный массив A: ');
for i:=1 to n do write(a[i]:5);
 
for i:=1 to n do b[i] := Random(100);
writeln;
writeln('Оригинальный массив B: ');
 
for i:=1 to n do write(b[i]:5);
writeln;
writeln ('Полученный массив X:');
for i:=1 to n do
begin 
x[i] := b[i] / a[i] ;
write(x[i]:5:2);
end; 
end.

Код к задаче: «Перевод кода с паскаля на язык с++ - Turbo Pascal»

textual
#include "stdafx.h"
#include <iostream>
#include <ctime>
using namespace std;
 
const int n = 5;
 
int main() {
    setlocale(LC_CTYPE,"Russian");
    srand(time(NULL)); 
    double a[n],b[n];
    printf("Оригинальный массив A:\n");
    for(int i = 0;i < n;i++)
    {
        a[i] = rand() % 100;
        printf("%0.0f ",a[i]);
    }
    printf("\nПолученный массив B:\n");
    for(int i = 0;i < n;i++)
    {
        b[i] = rand() % 100;
        printf("%0.0f ",b[i]);
    }
    printf("\nПолученный массив X:\n");
    for(int i = 0;i < n;i++)
        printf("%0.2f ",b[i]/a[i]);
    printf("\n");
    system("pause");
    return 0;
}

9   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ