Вшколе учатся четыре ученика — андреев, иванов, петров, сидоров, имеющие разные увлечения. один из них увлекается теннисом, другой — танцами, третий — живописью, четвёртый —- пением. о них известно: • иванов и сидоров присутствовали на концерте хора, когда пел их товарищ; • петров и теннисист позировали художнику; • теннисист дружит с андреевым и хочет познакомиться с ивановым. чем увлекается андреев? а) теннисом б) живописью в) танцами г) пением с объяснением

•певец - либо андреев, либо петров • петров - не теннисист • андреев - не теннисит • теннисист либо сидоров либо иванов • теннисист - сидоров т к хочет познакомиться с ивановым • сидоров теннисист знает петрова и художника • сидоров теннисист и петров не художники • значит петров певец, так как он не художник • теннисист - сидоров • певец - петров • художник - андреев, так как петров знает хужожника и не знает иванова • танцор - иванов андреев увлекается б) живописью

 

  v=331+0,6*(-35)=310 м/c

v=331+0,6*30=349 м/c

 

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.