База ответов ИНТУИТ

Программирование на языке высокого уровня Паскаль

<<- Назад к вопросам

Какое число получится в результате работы программы?
const   a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var   i,k : integer;begin      k := abs(a[8]);      for i := 1 to 8 do	  if abs(a[i]) >k then k := abs(a[i]);      write(k)end.    

(Отметьте один правильный вариант ответа.)

Варианты ответа
9(Верный ответ)
10
7
8
Похожие вопросы
Какое число получится в результате работы программы?
const   a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var   i,k : integer;begin      k := abs(a[8]);      for i := 1 to 8 do	  if abs(a[i])  < k then k := abs(a[i]);      write(k)end.    
Какое число получится в результате работы программы?
const     a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var   i,j,k : integer;begin      k := 0; j := 4;      for i := 1 to 8 do	  if a[i] >j then k := abs(a[i]);      write(k)end.    
Какое число получится в результате работы программы?
const   a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var   i,k : integer;begin      k := a[1];      for i := 2 to 8 do	  if a[i] >k then k := a[i];      write(k)end.    
Какое число получится в результате работы программы?
const   a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var   i,k : integer;begin      k := a[8];      for i := 1 to 8 do	  if a[i]  < k then k := a[i];      write(k)end.    
Какое число получится в результате работы программы?
const     a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var   i,j,k : integer;begin      k := 0; j := 4;      for i := 1 to 8 do	  if abs(a[i]) >j then k := a[i];      write(k)end.    
Какое число получится в результате работы программы?
const     a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var   i,j,k : integer;begin      k := 0; j := 2;      for i := 1 to 8 do	  if a[i] < j then inc(k);      write(k)end.    
Какое число получится в результате работы программы?
const     a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var   i,j,k : integer;begin      k := 0; j := 4;      for i := 1 to 8 do	  if abs(a[i]) >j then inc(k);      write(k)end.    
Какое число получится в результате работы программы?
const   a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var   i,k : integer;begin      k := 1;      for i := 8 downto 1 do	  if a[i] = 0 then k := i;      write(k)end.    
Какое число буден выведено в результате работы программы?
const   a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var   i,k : integer;begin      k := 1;      for i := 1 to 8 do	  if a[i] = 0 then k := i;      write(k)end.    
Что будет выведено на экран в результате работы программы?
var a,b,c,d: integer;Procedure P( a: integer; var c: integer; var d: integer);var b: integer;begin   a:=5; c:=7; b:=9;end;begin   a:=1; b:=1; c:=1;   P(b,a,c);   write (a,'|',b,'|',c)end.