Задание 1
Во Сколько байт оперативной памяти будет занимать описанный массив?
t: array [1..80] of boolean;
Выберите один из 4 вариантов ответа:
1) 160 2) 10 3) 0 4) 80
Задание 2
Во Сколько элементов в описанном массиве?
d: array [byte] of byte;
Запишите число:
Задание 3
Во Сколько байт занимает описанный массив?
a: array [boolean] of real;
Запишите число:
Задание 4
Во Как называются ячейки оперативной памяти, в которых хранятся данные массива?
Выберите один из 4 вариантов ответа:
1) Пункты массива 2) Строки 3) Индексы 4) Элементы массива
Задание 5
Во Какие действия возможны над массивами, как над единым целым?
Выберите несколько из 4 вариантов ответа:
1) Присваивание 2) Проверка неравенства
3) Сложение 4) Проверка равенства
Задание 6
Во Как обратится к элементу массиваа с индексом 5?
Запишите ответ:
Задание 7
Во Как называется структурный тип данных, используемый для хранения пронумерованных величин одного типа?
Выберите один из 4 вариантов ответа:
1) Регулярный тип 2) Комбинированный тип
3) Составной тип 4) Строковый тип
Задание 8
Во Какие варианты описания элементов массива являются правильными?
Выберите несколько из 4 вариантов ответа:
1) c: array [char] of 1..7; 2) m: array [integer] string;
3) t: array [real] of real; 4) a: array [1..2] of byte;
Задание 9
Во Сколько байт оперативной памяти в среде PascalABC занимает описанный двумерный массив?
a: array [1..50, 1..70] ofinteger;
Выберите один из 4 вариантов ответа:
1) 7 000 2) 70 3) 3 500 4) 50
Задание 10
Во Какая величина в языке Pascalназывается массивом?
Выберите один из 4 вариантов ответа:
1) Величина составного типа
2) Величина одного из числовых типов
3) Величина регулярного типа
4) Величина символьного типа
CSize2=6;
CSize3=5;
type TMas1=array[1..CSize1,1..CSize1] of integer;
TMas2=array[1..Csize2, 1..CSize2] of integer;
TMas3=array[1..Csize3, 1..CSize3] of integer;
var A1:TMas1;
A2:TMas2;
A3:TMas3;
i,j,x, y:byte;
function zero(i:integer):boolean;
begin
zero:=false;
if i=0 then zero:=true;
end;
function interval(i:integer):boolean;
begin
interval:=false;
if (i<=12) and (i>=1) then interval:=true;
end;
begin
X:=0;
Y:=0;
randomize;
for i:=1 to CSize1 do
begin
for j:=1 to CSize1 do
begin
A1[i, j]:=random(50);
write(A1[i, j]:3);
if zero(A1[i, j]) then inc(x);
if interval(A1[i,j]) then inc(y);
end;
writeln;
end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
for i:=1 to CSize2 do
begin
for j:=1 to CSize2 do
begin
A2[i, j]:=random(50);
write(A2[i,j]:3);
if zero(A1[i,j]) then inc(x);
if interval(A2[i,j]) then inc(y);
end;
writeln;
end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
for i:=1 to CSize3 do
begin
for j:=1 to CSize3 do
begin
A3[i, j]:=random(50);
write(A3[i,j]:3);
if zero(A3[i,j]) then inc(x);
if interval(A3[i,j]) then inc(y);
end;
writeln;
end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
end.
const
n=5;
type
Matrix=array[1..n,1..n] of integer;
procedure DummySchool(var a:Matrix);
begin
Writeln('Ввод элементов матрицы');
for var i:=1 to n do begin
Write(n,' элементов строки ',i,': ');
for var j:=1 to n do Read(a[i,j]);
end;
Writeln('Сформирована матрица ',n,'x',n);
for var i:=1 to n do begin
for var j:=1 to n do Write(a[i,j]:5);
Writeln
end
end;
begin
var B:Matrix;
DummySchool(B);
var sn:=0;
var sp:=0;
for var i:=1 to n do
for var j:=1 to n do
if B[i,j]<0 then sn+=B[i,j]
else
if B[i,j]>0 then sp+=B[i,j];
Writeln('Сумма отрицательных ',sn);
Writeln('Сумма положительных ',sp)
end.
Тестовое решение:
Ввод элементов матрицы
5 элементов строки 1: 6 23 -5 13 9
5 элементов строки 2: 42 0 -38 16 37
5 элементов строки 3: -5 -18 3 11 8
5 элементов строки 4: 9 13 -11 0 3
5 элементов строки 5: 19 -17 0 15 5
Сформирована матрица 5x5
6 23 -5 13 9
42 0 -38 16 37
-5 -18 3 11 8
9 13 -11 0 3
19 -17 0 15 5
Сумма отрицательных -94
Сумма положительных 232