Дан двумерный массив a[n, m]. определить максимальный элемент массива решите
Ответы
program n1;
uses crt;
var aw:array[1..10] of integer;
i,w,g:integer;
begin
g:=0;
w:=10;
for i:=0+1 to w do begin
aw[i]:=random(100);
write(aw[i]:6);
end;
writeln();
write('Чот');
for i:=0+1 to w do begin
if aw[i] mod 2 = 0 then g:=g+1; end; write('Всего чотных чисел ',g);
writeln();
write('Не чот');
g:=0;
for i:=0+1 to w do begin
if aw[i] mod 2 > 0 then g:=g+1;end; write('Всего не чотных чисел ',g) ;
end.
uses crt;
const
n=10;
var
mas:array[1..n] of integer;
i,c,b:integer;
begin
randomize;
c:=0;
b:=0;
for i:=1 to n do
mas[i]:=random(101)+1;
for i:=1 to n do
write(mas[i],' ');
for i:=1 to n do
begin
if mas[i] mod 2=0 then
inc(c);
end;
writeln('c=',c);
for i:=1 to n do
begin
if mas[i] mod 2<>0 then
inc(b);
end;
writeln('b=',b);
end.
const n = 10;
type Mstring = array [1..n] of string;
var m:Mstring;
procedure InputM(var arg:Mstring);
var i:byte;
begin
for i:=1 to n do
begin
writeln('enter string number ',i);
readln(arg[i]);
end;
end;
procedure OutputM(const arg:Mstring);
var i:byte;
begin
for i:=1 to n do
begin
writeln(arg[i]);
end;
end;
function repl(const arg:string):string;
var i:byte;
res:string;
begin
res:=arg;
for i:=1 to length(res) do
begin
if res[i] = '!' then res[i]:='.';
end;
repl:=res;
end;
procedure MasRepl(var arg:Mstring);
var i:byte;
begin
for i:=1 to n do
begin
arg[i]:= repl(arg[i]);
end;
end;
begin
InputM(m);
MasRepl(m);
OutputM(m);
readln;
end.
import java.util.Scanner;
public class Main {
public static void main(String[] args){
Scanner sc = new Scanner(System.in);
int num = sc.nextInt(), k1 = 0, k2 = 0;
for(int i = 0; i < 3; i++){
k2 += num % 10;
num /= 10;
}
for(int i = 0; i < 3; i++){
k1 += num % 10;
num /= 10;
}
if(k1 == k2 && k1 % 2 == 0)
System.out.println("Lucky :)");
else
System.out.println("Not lucky :(");
}
}
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
const n=3; m=5;
var a: array[1..n,1..m] of integer;
i,max,j: integer;
begin
writeln('массив :');
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(19)-9;
write(a[i,j], ' ');
end;
writeln;
end;
max:=a[1,1];
for i:=1 to n do for j:=1 to m do if a[i,j]> max then max:=a[i,j];
write('максимальный: ',max);
end.