переведите из языка Pascal на язык С++ Очень нужно и
program Project1;
uses crt;
const N0=100;
Var A: Array[1..N0, 1..N0] Of Integer;
M: Integer;
i, j, k, N: Byte;
begin
Repeat
Write(' N = ');
Read(N);
Until (N In [1..100]);
Randomize;
For i:=1 To N Do
Begin
For j:=1 To N Do
Begin
A[i, j]:=Random(100);
Write(A[i, j]:4);
End;
WriteLn;
End;
writeln;
For i:=1 To N-1 Do
For j:=i+1 To N Do
if (A[i,n-i+1]<A[j,n-j+1]) Then
Begin
M:=A[i,n-i+1];
A[i,n-i+1]:=A[j,n-j+1];
A[j,n-j+1]:=M;
End;
For i:=1 To N Do
Begin
For j:=1 To N Do
Write(A[i, j]:4);
WriteLn;
End;
end.
ответ: Значения, на основе которых выполняются вычисления. Аргументы вводят в круглых скобках сразу после имени функции. Аргументами могут быть числа, адреса ячеек, текст, выражения, содержащие другие функции.
Функции, используемые на уроках математики.
СУММ(В2:В5) – вычисление суммы числовых значений диапазона ячеек начиная с В2 до В5.
СУММ(В2:В5;100;К4) – вычисление суммы числовых значений диапазона ячеек В2:В5, числа 100 и значения ячейки К4.
СУММЕСЛИ(В2:В5;”>10”) – вычисление суммы чисел, больших 10, из диапазона ячеек В2:В5.
СРЗНАЧ(В2:В5) – вычисление среднего значения для диапазона ячеек В2:В5.
МАКС(В2:В5) – вычисление максимального значения из диапазона ячеек В2:В5.
МИН(В2:В5) – вычисление минимального значения из диапазона ячеек В2:В5.
СЧЕТ(В2:В5) – подсчёт общего количества чисел из диапазона ячеек В2:В5.
СЧЕТЕСЛИ(В2:В5;”<5”) – вычисление количества чисел меньших 5, из диапазона ячеек В2:В5.
СТЕПЕНЬ(В1;А4) – вычисление значения степени с основанием В1 и показателем степени А4.
КОРЕНЬ(В1) – вычисление значения квадратного корн
Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.
Подробнее - на -