Перевод кода из Delphi в Cи

  • Автор темы a9a
  • Дата начала
A

a9a

Гость
#1
Ребят, помогите, пожалуйста, мне перевести код задачи из Delphi в Си.
Язык Си мы только начали изучать, и преподаватель мало что объясняет, т.е. как хочешь, так и понимай. Я знаю только Delphi и Pascal, а работу надо сдать на Си. =(

Переведите, если не сложно, пожалуйста..

вот само условие задачи: Сосчитать количество нулевых элементов матрицы М в каждом столбце.

мой код в Delphi:

Код:
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
N1 = 50;
var
N, M: Integer;  // размеры матрицы: кол-во строк и столбцов
I, J: Integer;  // переменные цикла
Mas: array [1..N1,1..N1] of Real; // матрица исходная
Vec: array [1..N1] of Integer;	// матрица, в ячейках которой
// количество нулевых элементов
// соответствующего столбца 
begin
// вводим размеры матрицы
Writeln('Input the sizes of the matrix (N,M)');
ReadLn(N,M);

// вводим матрицу
WriteLn('Input the matrix');
for I := 1 to N do
begin
WriteLn('Input the ',I,' row: ');
for J := 1 to M do
Read(Mas[I,J]);
end;
// обнуляем массив
for I := 1 to M do
Vec[I] := 0;

// подсчитываем количество нулевых элементов
// в каждом столбце и записываем в массив
for J := 1 to M do
for I := 1 to N do
if Mas[I,J] = 0 then
Vec[J] := Vec[J] + 1;

Writeln;
// печатаем исходную матрицу
for I := 1 to N do
begin
for J := 1 to M do
Write(Mas[I,J]:6:2,' ');
Writeln;
end;

Writeln;
Write(' ');

// печатаем количество нулевых эелементов
// в каждом столбце
for I := 1 to M do
Write(Vec[I],' ');

WriteLn;
Readln;
Readln;
end.