Втаб­ли­це dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (dat[1] — ко­ли­че­ство уче­ни­ков в пер­вом классе, dat[2] — во вто­ром и т. определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. текст про­грам­мы на пяти язы­ках программирования. dim dat(11) as integer dim k, m as integer dat(1) = 20: dat(2) = 27 dat(3) = 19: dat(4) = 28 dat(5) = 26: dat(6) = 22 dat(7) = 24: dat(8) = 28 dat(9) = 26: dat(10) = 21 dat(11) = 27 m = 0; for k = 1 to 11 if dat(k) < 25 then m = dat(k) endif next k print m dat = [20, 27, 19, 28, 26, 22, 24, 28, 26, 21, 27] m = 0 for k in range(11): if dat[k] < 25: m = dat[k] print (m) паскаль алгоритмический язык var k, m: integer; dat: array[1..11] of integer; begin dat[1] : = 20; dat[2] : = 27; dat[3] : = 19; dat[4] : = 28; dat[5] : = 26; dat[6] : = 22; dat[7] : = 24; dat[8] : = 28; dat[9] : = 26; dat[10] : = 21; dat[11] : = 27; m : = 0; for k : = 1 to 11 do if dat[k] < 25 then begin m : = dat[k]; end; writeln(m); end. алг нач цел­таб dat[1: 11] цел k, m dat[1] : = 20 dat[2] : = 27 dat[3] : = 19 dat[4] : = 28 dat[5] : = 26 dat[6] : = 22 dat[7] : = 24 dat[8] : = 28 dat[9] : = 26 dat[10] : = 21 dat[11] : = 27 m : = 0 нц для k от 1 до 11 если dat[k] < 25 то m : = dat[k] все кц вывод m кон с++ #include using namespace std; int main() { int dat[11] = {20, 27, 19, 28, 26, 22, 24, 28, 26, 21, 27}; int m = 0; for (int k = 0; k < 11; k++) if (dat[k] < 25) { m = dat[k]; } cout < < m; return 0; }

program ;

var

  i, a: longint;

  x,

  u, j,  

  n, m : longint;

function fdiv (a, left : longint) : longint;

var

d,  

i : longint;

begin

d : = 1;  

for i : = left to trunc (sqrt (a)) do

if (a mod i = 0)

then

begin

d : = i;  

break;  

end;

if (d < > 1)

then

fdiv : = d

else  

fdiv : = a;

end;

function g (n, u : longint) : longint;

var

i : longint;  

begin

i : = 0;  

while (n mod u = 0)

do

begin

inc (i);

n : = n div u;

end;

g : = i;

end;

begin

assign (input, 'input.txt');

assign (output, 'output.txt');

reset (input);

read (a);

close (input);

m : = 0;

n : = 1;  

i : = fdiv (a, 2);

u : = 2;  

while (a > 1)

do

begin

n : = n * i;  

j : = 0;  

  while (a mod i = 0)

  do

begin

inc (j);

a : = a div i;

end;

if (j > m)

then

begin

m : = j;  

u : = i;  

end;

i : = fdiv (a, i + 2);

end;

x : = 1;

while (g (n * x, u) * n * x < m)

do

inc (x);

n : = n * x;  

rewrite (output);

write (n);

close (output);

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

var a: array[0..100,0..100] of integer;

n, m, i, j, max, col: integer;

begin

  read(n);

  read(m);  

  for i: =0 to n-1 do

  for j: =0 to m-1 do

  begin

  read(a[i,j]);

  if max< a[i,j] then max: =a[i,j];

  end;

  for i: =0 to n-1 do

  for j: =0 to m-1 do  

  if max=a[i,j] then begin inc(col); break; end;

  writeln(col);

  for i: =0 to n-1 do

  for j: =0 to m-1 do  

  if max=a[i,j] then begin write(i, ' '); break; end;    

end.