помогите пожалуйста!!3.Напишите процедуру Input(A) для заполнения массива целых чисел A размером 10 x 10: 0 0 0 ...0 0

2YurArt : странно, что вы через 3 часа после ответа Василия почти полностью повторили его код, за исключением абсолютно лишней вашей проверки i==(k+1) (см. Бритва Оккама)
Да и лишние фигурные скобки только напрягают. Кстати, у вас ещё и ошибка во втором цикле (в проверке увеличиваете i вместо j и потом её же приращаете) . Притом ещё и лишнюю переменную используете, без которой можно вполне и обойтись (я про переменную к) .

Кстати, я бы сделал вообще вот так:
for (int a=0; a<=9; a++) //с тут лишняя, т. к. она полностью повторяет а
for (int b=0; b<=9; b++)
if(a==b)
{
mas[a,b] = c;
}
else
{
mas[a,b]=0;
}

For I=0 to 9
For J=0 to 9
Input(A(I,J))
Next J
Next I

Синтаксис зависит от языка программирования...

Если надо заполнить матрицу, как у вас на рисунке, то
Для С++
for (i=0;i<10;i++)
{
a=i;
}
Для бэйсика
for i=0 to 9
a[i,i]=i
next i;
А если ввести значения, то как человек передо мной написал

int k = 0;
int arr [10][10];
for (int i =0; i<10; i++)
{
for (int j=0; i<10; i++)
{
if (i==j && i==(k+1)) // проверка, что ячейки - диагональные
{
arr [i,j] = k++; // присваиваем значение предыдущей диагональной ячейки, увеличенное на 1, текущей ячейке.

}
else
{
arr [i,j] = 0;
}
}
}

на Си
for (int a=0, c=0; a<=9; a++, c++)
for (int b=0; b<=9; b++)
if(a==b)
{
mas[a,b] = c;
}
else
{
mas[a,b]=0;
}