Тема 9: Массивы (матрицы)

Варианты ответа

16
10
4
13
17
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении

const N=4;
type TAra=array [1..N,1..N] of byte;
const Ara:TAra = ((1,2,3,4),(5,6,7,8),
(8,7,6,5),(4,3,2,1));
var i,sum:integer;
begin sum:= Ara[N,N-2]; for i:=1 to N do 
inc(sum,Ara[i,i]); write(sum); readln;
end.

Варианты ответа

1,2,3,4,
1,2,4,4,
1,2,3,3
1,2,4,3
1,2,4,3,
Программа вызовет
ошибку при выполнении
Программа вызовет
ошибку при компиляции

const N=4;
type TAra=array [1..N,1..N] of byte;
const Ara:TAra = ((1,2,3,4),(5,6,7,8),
(8,7,6,5),(4,3,2,1));
var i,j:integer;
begin for i:=2 to N-1 do
  if Ara[N,i] >= 2 then
    Ara[N-3,i+1]:= Ara[N,i-1];
    for j:=1 to N do write(Ara[1,j],',');
readln;
end.

Варианты ответа

8, 7
8, 6
7, 6
8,6
7, 7
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении

const N=4;
type TAra=array [1..N,1..N] of byte;
const Ara:TAra = ((1,2,3,4),(5,6,7,8),
(8,7,6,5),(4,3,2,1));
var i,j,m,k:integer;
begin m:= 0; K:=M-2; for i:=1 to N do
for j:=1 to N do if Ara[i,j]>m then
  begin m:= Ara[i,j]; inc(k); end;
  write(m,', ',k); readln;
end.

Варианты ответа

8, 7, 0, 0,
8, 7, 6, 0,
8, 7, 6, 5,
5, 6, 7, 8,
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении
5, 6, 0, 0,

const N=4;
type TAra=array [1..N,1..N] of byte;
const Ara:TAra = ((1,2,3,4),(5,6,7,8),
(8,7,6,5),(4,3,2,1));
var i,j:integer; BB:TAra;
begin BB:=Ara; for i:=3 to N do
for j:=N downto 1 do BB[j,i]:= 0;
for j:=1 to N do write(BB[3,j],', '); 
readln;
end.

Варианты ответа

0abcdefghi
0ghidefabc
0ghiabcdef
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении
0defghiabc
0abcghidef

const N=3;
type TSim=array [0..N-1,1..N] of char;
const Sa:TSim = (('a','b','c'),
('d','e','f'),('g','h','i'));
var i,j:integer; BB:TSim; ss: string;
begin ss:='0'; for i:=N downto 1 do
for j:=1 to N do ss:=ss+Sa[i mod 3,j];
write(ss); readln;
end.