1. дан фрагмент программы, определяющий количество неотрицательных элементов массива a[1..10]. восстановите пропущенное условие.
k: =10;
i: =1;
while i< =10 do
begin
if then k: =k – 1;
i: =i+1
end;
write (p)
a[i]> 0
a[i]> 0
a[i]< =0
a[i]< 0
2.задан одномерный массив а, содержащий n элементов. укажите, что будет определено в результате работы следующего фрагмента программы:
k: =0;
for i: =1 to n do
if a[i]> =0 then k: =k+1
количество положительных элементов массива
максимальный элемент массива
количество неотрицательных элементов массива
сумма положительных элементов массива
3. что такое массив?
это структурированный тип данных, состоящий из элементов разных типов
это совокупность данных, объединенных под одним именем
это структурированный тип данных, состоящий из элементов одного типа, по номеру и объединенных под одним именем
это простой тип данных, состоящий из одного элемента
4. задан одномерный массив а, содержащий n элементов. значения всех элементов массива различны. укажите, что будет определено в результате работы следующего фрагмента программы:
m: =a[1];
for i: =1 to n do
if a[i]< =a[1] then m: =a[i]
значение максимального элемента массива
индекс максимального элемента массива
значение минимального элемента массива
индекс минимального элемента массива
5. дан одномерный массив.
-125 200 10 0 43 11
чему равно значение элемента массива с индексом 3.
6. выберите правильное описание массива а, состоящего из нескольких переменных вещественного типа
a : array [1..25] of real
a : array [1..25] of integer
a : [1..25] of real
a : array [1..25] of byte
7. var a: array [1..59] of integer;
при выполнении этого оператора в памяти компьютера будет выделено … ячеек целого типа.
50
58
59
60
8. каким ввода элементов массива а лучше воспользоваться, если значения элементов массива равны своим удвоенным индексам?
с оператора присваивания по формуле a[i]: =2* a[i]
с оператора присваивания по формуле a[i]: =2*i
с оператора присваивания случайными числами
любым из предложенных вариантов
9. выберите правильные варианты вывода элементов массива на печать в столбик. (2 ответа)
for i: =1 to n do writeln (a[i])
for i: =1 to n do writeln (`a`, i, `=`, a[i])
for i: =1 to n do write (a[i], ` ` )
for i: =1 to n do writeln ( i, `]=`)
10. какой оператор необходимо вставить вместо многоточия в следующий фрагмент программы на языке паскаль, чтобы верно решалась нахождения суммы элементов массива а, содержащего n элементов?
…
for i: =1 to n do s: =s+a[i]
s: =a[1]
s: =a[n]
s: =1
s: =0
type matrix = array [1..8] of integer;var F, output: text; i, n, cc, sum: integer; c: char; x: matrix; ma: real;
procedure convert (var c: char; var cc: integer);begin if c='1' then cc:=1; if c='2' then cc:=2; if c='3' then cc:=3; if c='4' then cc:=4; if c='5' then cc:=5; if c='6' then cc:=6; if c='7' then cc:=7; if c='8' then cc:=8; if c='9' then cc:=9; if c='0' then cc:=0;end;
procedure sorting (n: integer; x: matrix);begin for n:=1 to 7 do begin if x[n]>x[n+1] then swap(x[n],x[n+1]); end;end;
begin Assign(F, '1.txt'); Reset(F); for i:=1 to 8 do begin read(F, c); convert(c,cc); x[i]:=cc; end; Close(F);
sorting(n,x); sum:=x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8]; ma:=sum/8; Assign(output, 'output.txt'); rewrite(output); writeln(output, sum); writeln(output, ma); Close(output);end.