М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Составьте программу, выясняющую есть ли в двумерном массиве a(n,m) строки, сумма элементов которых есть отрицательное число

👇
Ответ:
sofia121324oyztor
sofia121324oyztor
15.03.2021
Программа по ссылке в сообщениях
Составьте программу, выясняющую есть ли в двумерном массиве a(n,m) строки, сумма элементов которых е
4,8(80 оценок)
Открыть все ответы
Ответ:
dashbrazhik
dashbrazhik
15.03.2021

/Ребус
#include<conio.h>
#include<iostream.h>
void main()
{ *int i,j,r;
* long int buk,slo,a[8];
* clrscr();
* for(a[0]=1; a[0]<=3; a[0]++)
* *for(a[1]=0; a[1]<=9; a[1]++)
* * for(a[2]=0; a[2]<=9; a[2]++)
* * *for(a[3]=0; a[3]<=9; a[3]++)
* * * for(a[4]=0; a[4]<=9; a[4]++)
for(a[5]=1; a[5]<=9; a[5]++)
for(a[6]=0; a[6]<=9; a[6]++)
*for(a[7]=0; a[7]<=9; a[7]++)
 * * { *buk=a[0]*10000+a[1]*1000+a[2]*100+a[3]*10+a[4];
slo=a[5]*10000+a[6]*1000+a[7]*100+a[3]*10+a[7];
* *if(buk*3==slo)
* *{ r=0; * * * * * * * * * //Проверка того, что
* * *for(i=0; i<8; i++) * * //разным буквам соответствуют
for(j=i+1; j<8; j++) *//разные цифры
*if(a[i]==a[j]) r++;
*if(r==0)cout<<buk<<" + "
* * <<buk<<" + "
* * <<buk<<" = "
* * <<slo<<endl;
* *}
* * *}
getch();

4,7(16 оценок)
Ответ:
Dataset147
Dataset147
15.03.2021
1.
var a:array [1..4, 1..4] of integer; i, j, max: integer;
Begin
    for i := 1 to 4 do
        begin
        for j := 1 to 4 do
            read(a[i][j]);
        readln;
        end;
    max := a[1][1];
    for i := 2 to 4 do
        if max < a[i][i] then max := a[i][i];
    writeln(max);
End.

2.
var a:array [1..5, 1..5] of integer; i, j, m, sum: integer;
Begin
    for i := 1 to 5 do
        begin
        for j := 1 to 5 do
            read(a[i][j]);
        readln;
        end;
    readln(m);
    sum := 0;
    for i := 1 to 5 do
        if (m - i > 0) and (m - i < 6) then
            sum := sum + a[i][m - i];
    writeln(sum);
End.

3.
Const N = 5;
var a:array [1..N, 1..N] of integer; i, j, max: integer;
Begin
    for i := 1 to N do
        begin
        for j := 1 to N do
            read(a[i][j]);
        readln;
        end;
    max := a[1][N];
    for i := 2 to N do
        if (max < a[i][N + 1 - i]) then
            max := a[i][N + 1 - i];
    writeln(max);
End.

4.
Const N = 5;
var a:array [1..N, 1..N] of integer; i, j, count: integer; sum: real;
Begin
    for i := 1 to N do
        begin
        for j := 1 to N do
            read(a[i][j]);
        readln;
        end;
    sum := 0;
    count := 0;
    for i := 1 to N do
        if (a[5][i] mod 2 = 1) then
            begin
                sum := sum + a[5][i];
                inc(count);
            end;
    sum := sum / count;
    writeln(sum);
End.

5.
var a:array [1..4, 1..4] of integer; i, j, upper_sum, lower_sum: integer;
Begin
    for i := 1 to 4 do
        begin
        for j := 1 to 4 do
            read(a[i][j]);
        readln;
        end;
    upper_sum := 0;
    lower_sum := 0;
    for i := 1 to 4 do
        begin
        for j := i + 1 to 4 do
            upper_sum := upper_sum + a[i][j];
        for j := 1 to i - 1 do
            lower_sum := lower_sum + a[i][j];
        end;
    writeln(upper_sum);
    writeln(lower_sum);
End.
4,6(37 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ