Постановка задачи

@Qwertyuiop12345 · Регистрация: 16.09.2011

Author24 — интернет-сервис помощи студентам

4. В массиве а[1..5,1..5], введенном с клавиатуры, найти сумму главной и побочной диагонали. Затем выполнить следующие действия:
4.1. Если сумма главной диагонали меньше суммы побочной диагонали, то найти максимальное число в массиве.
4.2. Если сумма главной диагонали больше суммы побочной диагонали, то числа меньшие двух заменить на 2.
4.3. Если суммы диагоналей равны, то все четные числа массива заменить на 0.
Листинг программы

Pascal

var sp,sg: integer;
i,j,max:integer;
a: array [1..5,1..5] of integer;
begin
 
writeln;
writeln;
writeln;
randomize;
writeln ('двумерный массив a[1..5,1..5]:');
begin
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(10);
end;
 
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do……..

@Qwertyuiop12345 · 16.02.2012, 08:51 **[ТС]**

2.4. Результаты выполнения

1 случай
Сумма главной диагонали 20
Сумма побочной диагонали 22
Max число = 9
4 9 5 1 6
7 8 4 9 5
8 0 0 0 6
7 2 7 8 6
5 6 5 1 0

2 случай
Сумма главной диагонали 31
Сумма побочной диагонали 27
9 8 9 8 2
2 5 4 3 2
5 2 9 2 6
3 4 2 6 9
9 9 2 4 2

3 случай
Сумма главной диагонали 17
Сумма побочной диагонали 17
0 0 7 0 3
0 3 9 0 0
0 0 0 0 0
0 5 0 3 5
5 0 7 0 5

@El41 · 16.02.2012, 13:30

Delphi

var sp,sg: integer;
i,j,max:integer;
a: array [1..5,1..5] of integer;
begin
writeln;
writeln;
writeln;
randomize;
writeln ('двумерный массив a[1..5,1..5]:');
    for i:=1 to 5 do
        begin
            for j:=1 to 5 do
            a[i,j]:=random(10);
        end;
a[1,1]:=max;
sp:=0; //îáíóëÿåì ñóììó ïîáî÷íîé äèàãîíàëè
sg:=0; //Îáíóëÿåì ñóììó ãëàâíîé äèàãîíàëè
    for i:=1 to 5 do
        begin
            j:=i; 
            sg:=sg+a[i,j];
                for j:=5 to 1 do
                    begin
                        sp:=sp+a[i,j]
                    end;
        end;
    if sg<sp
        then 
            begin 
                for i:=1 to 5 do
                    begin
                        for j:=1 to 5 do
                            begin
                                if a[i,j]>max
                                    then a[i,j]:=max;
                            end;
                    end;
            end
        else
            begin
                if sg=sp
                    then
                        begin
                            for i:=1 to 5 do 
                                begin
                                    for j:=1 to 5 do
                                        begin
                                            if a[i,j] mod  2=0
                                                then
                                                    a[i,j]:=0
                                        end;
                                end;
                        end
                    else
                        begin
                            for i:=1 to 5 do
                                begin
                                    for j:=1 to 5 do
                                        begin
                                            if a[i,j]<2
                                                then
                                                    a[i,j]:=2
                                        end;
                                end;
                        end;
            end;
    for i:=1 to 5 do
        begin
            for j:=1 to 5 do
                begin
                    writeln(a[i,j])
                end;
        end;
    readln;
end.

@Qwertyuiop12345 1 / 1 / 0 Регистрация: 16.09.2011 Сообщений: 21
	16.02.2012, 08:51 [ТС]	2
	2.4. Результаты выполнения 1 случай Сумма главной диагонали 20 Сумма побочной диагонали 22 Max число = 9 4 9 5 1 6 7 8 4 9 5 8 0 0 0 6 7 2 7 8 6 5 6 5 1 0 2 случай Сумма главной диагонали 31 Сумма побочной диагонали 27 9 8 9 8 2 2 5 4 3 2 5 2 9 2 6 3 4 2 6 9 9 9 2 4 2 3 случай Сумма главной диагонали 17 Сумма побочной диагонали 17 0 0 7 0 3 0 3 9 0 0 0 0 0 0 0 0 5 0 3 5 5 0 7 0 5 0

	16.02.2012, 13:30