Дан двумерный массив размерностью n х m, заполненный случайными числами. определить, есть ли в данном массиве столбец, в которой имеется два максимальных элемента всего массива. c++
program pr1; uses crt; var mas: array[100..999] of integer; i: integer; beginclrscr; for i: =100 to 999 do mas[i]: =i; {1 sposob}for i: =100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]); i: =100; {2 sposob}while i< =999 do begin if mas[i] mod 9=0 then writeln(mas[i]); i: =i+1; end; i: =100; {3 sposob}repeatif mas[i] mod 9=0 then writeln(mas[i]); i: =i+1until i=999end.
2)
program pr1; uses crt; var mas: array[100..999] of integer; i,v: integer; beginclrscr; v: =0; for i: =100 to 999 do mas[i]: =i; {1 sposob}for i: =100 to 999 do if mas[i] mod 17 =0 then v: =v+mas[i]; writeln(v); i: =100; {2 sposob}v: =0; while i< =999 do begin if mas[i] mod 17=0 then v: =v+mas[i]; ; i: =i+1; end; writeln(v); i: =100; {3 sposob}v: =0; repeatif mas[i] mod 17=0 then v: =v+mas[i]; i: =i+1until i=999; writeln(v); end.
stolle16
24.12.2020
Проблемы гуманитарного характера – проблемы информационной безопасности, возникающие в связи с бесконтрольным использованием и распространением персональных данных граждан, вторжениями в частную жизнь, клеветой и кражами личности. 2. проблемы и юридического характера – проблемы информационной безопасности, возникающие в результате утечки, искажения и потери коммерческой и финансовой информации, краж брендов и интеллектуальной собственности, раскрытия информации о материальном положении граждан, промышленного шпионажа и распространения материалов, наносящих ущерб репутации компаний.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дан двумерный массив размерностью n х m, заполненный случайными числами. определить, есть ли в данном массиве столбец, в которой имеется два максимальных элемента всего массива. c++
1)
program pr1; uses crt; var mas: array[100..999] of integer; i: integer; beginclrscr; for i: =100 to 999 do mas[i]: =i; {1 sposob}for i: =100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]); i: =100; {2 sposob}while i< =999 do begin if mas[i] mod 9=0 then writeln(mas[i]); i: =i+1; end; i: =100; {3 sposob}repeatif mas[i] mod 9=0 then writeln(mas[i]); i: =i+1until i=999end.
2)
program pr1; uses crt; var mas: array[100..999] of integer; i,v: integer; beginclrscr; v: =0; for i: =100 to 999 do mas[i]: =i; {1 sposob}for i: =100 to 999 do if mas[i] mod 17 =0 then v: =v+mas[i]; writeln(v); i: =100; {2 sposob}v: =0; while i< =999 do begin if mas[i] mod 17=0 then v: =v+mas[i]; ; i: =i+1; end; writeln(v); i: =100; {3 sposob}v: =0; repeatif mas[i] mod 17=0 then v: =v+mas[i]; i: =i+1until i=999; writeln(v); end.