Поделитесь своими знаниями, ответьте на вопрос:
перевести с Паскаля на С++ program n; const n = 4; var i, j, k : integer; a : array[1..n, 1..n] of real; begin for i:=1 to n do begin for j:=1 to n do begin a[i][j]:=sin((i*i + j*j) / n); } write(a[i][j], ' '); end; writeln; end; for i:=1 to n do for j:=1 to n do if(a[i][j]>0) then k:=k+1; writeln('положительных элементов = ', k); readln; end.
Program z1;
uses crt;
var x: read;
z,d:integer;
begin
clrscr;
write( "Введите число_")
realden(x);
x:=x*10;
z:=trunc(x);
d:=z mod 10;
writeln("первая цифра дробной части=",d);
readkey;
end.