Здравствуйте! Нужна с переводом проги из паскаля в С++
Заранее поиск максимального кратного 3
function Max(a:mtr;var k:byte):integer;
var i,j,mx:integer;
begin
k:=0;
mx:=-maxint-1;
for i:=1 to n do
for j:=1 to n do
if (a[i,j] mod 3=0)and(a[i,i]>mx) then
begin
mx:=a[i,j];
k:=1
end;
Max:=mx
end;

//вызов
mx:=Max(a,k);
if k=0 then writeln('Нет элементов кратных 3')
else writeln('Максимальный, кратный 3=',mx);

gazizullinnafi    3   21.05.2020 07:26    2