Другие языки программирования и технологии
Помогите пожалуйста! Завтра экзамен не буду допущен без программы (( помогите решить ..
."Дан массив 5 х 5. Заменить на нули элементы тех строк, у которых диагональный элемент равен нулю. "
Ты для начала написал бы на каком языке тебе надо.
Íà Pascal
var
a: array[0..4, 0..4] of byte;
i, j: byte;
Begin
Randomize;
for i:=0 to 4 do
for j:=0 to 4 do
a[i,j]:= (random(3));
j:=0;
for i:=0 to 4 do
begin
if a[i,j] = 0 then
for j:=0 to 4 do a[i,j]:=0;
j:=i;
end;
for i:=0 to 4 do
begin
writeln;
for j:=0 to 4 do
write (a[i,j], ' ');
end;
End.
var
a: array[0..4, 0..4] of byte;
i, j: byte;
Begin
Randomize;
for i:=0 to 4 do
for j:=0 to 4 do
a[i,j]:= (random(3));
j:=0;
for i:=0 to 4 do
begin
if a[i,j] = 0 then
for j:=0 to 4 do a[i,j]:=0;
j:=i;
end;
for i:=0 to 4 do
begin
writeln;
for j:=0 to 4 do
write (a[i,j], ' ');
end;
End.
#include <iostream>
int main() {
const int n = 5;
int a[ n ][ n ];
//ввод массива
for( int i = 0; i < n; ++i )
for( int j = 0; j < n; ++j )
std ::cin >> a[ i ][ j ];
//вывод массива
for( int i = 0; i < n; ++i ) {
for( int j = 0; j < n; ++j )
std ::cout << a[ i ][ j ] << " ";
std ::cout << std ::endl;
}
//преобразование ( Заменить на нули элементы тех строк, у которых диагональный элемент равен нулю. " )
for( int i = 0; i < n; ++i )
if( 0 == a[ i ][ i ] )
for( int j = 0; j < n; ++j )
a[ i ][ j ] = 0;
//вывод массива
for( int i = 0; i < n; ++i ) {
for( int j = 0; j < n; ++j )
std ::cout << a[ i ][ j ] << " ";
std ::cout << std ::endl;
}
return 0;
}

int main() {
const int n = 5;
int a[ n ][ n ];
//ввод массива
for( int i = 0; i < n; ++i )
for( int j = 0; j < n; ++j )
std ::cin >> a[ i ][ j ];
//вывод массива
for( int i = 0; i < n; ++i ) {
for( int j = 0; j < n; ++j )
std ::cout << a[ i ][ j ] << " ";
std ::cout << std ::endl;
}
//преобразование ( Заменить на нули элементы тех строк, у которых диагональный элемент равен нулю. " )
for( int i = 0; i < n; ++i )
if( 0 == a[ i ][ i ] )
for( int j = 0; j < n; ++j )
a[ i ][ j ] = 0;
//вывод массива
for( int i = 0; i < n; ++i ) {
for( int j = 0; j < n; ++j )
std ::cout << a[ i ][ j ] << " ";
std ::cout << std ::endl;
}
return 0;
}

Похожие вопросы
- Помогите пожалуйста написать программу на языке программирования AssemblerКто первый поможет сделать правильно10балов+50
- Помогите пожалуйста я вас о4ень прошу !нужно составить программу в паскале....
- Помогите написать программу на ассемблере, завтра экзамен а я в нём совсем не шарю.
- помогите пожалуйста решить задачу в С++,завтра экзамен. дана матрица а [4][5],надо найти строку с максимальным средним ари
- Помогите пожалуйста написать программу в с++
- Пожалуйста, будтье так добры, помочь решить задчаку в Паскале: Составьте программу, печатающую последнее слово в ...
- Помогите решить программу в паскале)
- ПОЖАЛУЙСТА ПОМОГИТЕ РЕШИТЬ ПРОГРАММУ НА ПАСКАЛЕ!
- В с++ я абсолютный ноль) помогите пожалуйста решить эти задачи (это допуск к экзамену))
- Помогите решить написать программу в СИ пожалуйста