Б) sin(x) cos(x) ArcSin(x)

В) integer

Виберіть логічний тип даних

Б) boolean

Який з перерахованих типів не є типом для опису цілих чисел

Д) single

Який з перерахованих типів не є типом для опису дробових чисел

В) word

Вкажіть функції обчислення абсолютного значення аргументу и косинуса аргументу

А) trunc(x) cos(x)

Вкажіть функції обчислення результату від ділення двох цілих чисел і обчислення залишку від ділення

Г) div mod

Яка з перерахованих функцій обчислює експоненту аргумента?

Г) exp(x)

Вкажіть функциії обчислення квадратного корня і обчислення квадрату аргумента

А) sqrt(x) sqr(x

Вкажіть функцію заокруглення дійсного числа до найближчого цілого:

В) round(x)

Які значення приймає логічна змінна (змінна типу boolean)?

В) false або true

Перераховано типи логічних даних. Вкажіть лишній…

Б) byte

Задана програма. Вкажіть, який алгоритм використовується.
program alg;
var S,I:integer;
begin
S:=0;
for I:=1 to 100 do
S:=S+I*I;
write(S:5)
end.

в) циклічний

Задана програма. Вкажіть, який алгоритм використовується.
program alg;
var A,B:integer;
begin
B:=5;
A:=B + 19;
write(A, B:5)
end.

а) лінійний

Задана програма. Вкажіть, який алгоритм використовується.
program alg;
var S, I:integer;
begin
write(' S= ');readln(S);
if S>0 then I:=S else I:=S*S;
write(S, I:5)
end.

Б) розгалужений

Який масив описаний в наступному фрагменті?
...
type Massiv=array[1..10] of integer;
var A:Massiv;
…

в) одновимірний масив цілого типу

Який масив описаний в наступному фрагменті на Паскалі?
...
type Student=array[1..100] of real;
var A:Student;

...

б) одновимірниймасив дійсного типу

Задано фрагмент програми на Паскалі. Визначити типи змінних A,B і C:
program alg;
var A:real; B:integer; C:boolean;

в) A - дійсного типу, B - цілого типу, C - логічного типу

Перераховані деякі оператори Паскаля. Виберіть оператор читання, виводу і присвоювання:

в) readln writeln :=

Виберіть оператор опису типу одновимірного масиву:

а) for i := 1 to N do

б) type vektor=array[1..N] of real;

Вкажіть вірний перелік стандартних функцій Паскаля:

Б) exp(x) sin(x) sqrt(x)

Виберіть вірну умову знаходження точки х в інтервалі [a,b]:

в) (a<=x) and (x<=b)

Який масив описаний в наступному фрагменті на Паскалі?
...
type Massiv=array[1..10, 1..5] of real;
var A:Massiv;
…

б) двохвимірнии масив дійсного типу

Заданий вираз: , виберіть вірний варіант запису цього виразу:

б) t = exp((1/3)*ln(B*sqrt(cos(t-sqrt(a)))))/(B+exp(3*ln(a)))*1/(b-a);

Заданий вираз: , виберіть вірний варіант запису цього виразу:

б) t = (exp((x+3)-1)/(exp((1/3)*ln(x))+1)+a/(x+b));

Заданий вираз: , виберіть вірний варіант запису цього виразу:

д) m = exp((1/5)*ln(x+exp((1/7)*ln(x+exp((3)*ln(sqr(x)))))));

Заданий вираз: , виберіть вірний варіант запису цього виразу:

б) t = exp((1/5)*ln(x+(exp(3*ln(b))-x)))/(3*exp(3*ln(cos(x))));

Заданий вираз: , виберіть вірний варіант запису цього виразу:

в) m = exp((1/7)*ln(x+sqr(ln(x-a))))+B/exp(3*ln(x));

Заданий вираз: , виберіть вірний варіант запису цього виразу:

а) L = exp(exp((3)*ln(x))+exp(sqr(x)))*sin(exp(3*ln(x)))/exp((3)*ln(cos(x)));

Заданий вираз: , виберіть вірний варіант запису цього виразу:

б) L = A+exp((1/x)*ln(A+x))+ln(x)/ln(4);

Заданий вираз: , виберіть вірний варіант запису цього виразу:

в) f = b/(exp((1/3)*ln(c-k)))*sqr(ln(k/(B+A)));

Заданий вираз: , виберіть вірний варіант запису цього виразу:

а) y = exp((1/3)*ln(a*sqrt((b*x)/(A-x)))+c);

Заданий вираз: , виберіть вірний варіант запису цього виразу:

б) y = exp((1/3)*ln(A*exp(7*ln(sin(exp((5)*ln(x))))))+c);

Який з фрагментів програми перевірки істинності нерівності не містить помилок:

A)

{$N+, E+}

Begin

Write(Sqrt(1+Sqrt(1+Sqrt(2))), ‘ < ‘ , (1+Sqrt(5))/2); readln

End.

Який з фрагментів програми перевірки істинності нерівності не містить помилок:

Д)

{$N+, E+}

Begin

Write(Exp(Exp(1)*Ln(Pi)), ‘ < ‘ , Exp(Pi)); readln

End.

Який з фрагментів програми перевірки істинності нерівності не містить помилок:

Д)

{$N+, E+}

Begin

Write(Ln(6)/Ln(5), ’ > ’ ,Ln(7)/Ln(6)); readln

End.

Який з фрагментів програми перевірки істинності нерівності не містить помилок:

Г)

{$N+, E+}

Var x, Left, Right: Real;

Begin

x:=sin(y);

Left:=ArcTan(x/Sqrt((1-Sqr(x))));

Write(‘Ліва частина: ’, Left);

Right:=3*Pi-10;

Write(‘Права частина: ’, Right); readln

End.

Який з фрагментів програми перевірки істинності нерівності не містить помилок:

Г)

{$N+, E+}

Var s, Left, Right: Real;

Begin

Left:=16*Cos(2*Pi/s);

Write(‘Ліва частина: ’, Left);

s:=Sqrt(17);

Right:=Sqrt(34-2*s)+s-1+2*Sqrt(17+3*s-Sqrt(170+38*s));

Write(‘Права частина: ’, Right); readln

End.

Впорядкована послідовність елементів з одним і тим же ім'ям ...

б) називається масивом

Назвіть кількість елементів в масиві: var s:array[1..12] of real;

Б) 12

Назвіть кількість елементів в масиві var w:array[1..12,1..5] of real;

В) 60;

Якщо для визначення елементу масиву потрібно вказати одну координату (порядковий номер), то такий масив називається

а) одновимірним

Одна змінна величина масиву називається ...

б) індексом масиву

Програма FOR I:=1 TO N DO WRITELN(А[I]:4); означає...

б) виведення елементів масиву в стовпець

Програма FOR I:=1 TO N DO WRITE(А[I]:4); означає...

а) виведення елементів масиву в рядок

Розмірність масиву визначає ...

б) кількість елементів

Сформулюйте умову завдання: for i:=1 to 10 do s:=s+s[i];

а) знайти суму елементів масиву

Сформулюйте умову завдання: for i:=1 to 10 do s:=s*s[i];

в) знайти добуток елементів масиву

Сформулюйте умову завдання: for i:=1 to 10 do s:=s+1;

г) елементи масиву збільшити на 1

Розмір масиву - це:

б) кількість елементів

Запис A3[7] означає...

а) заданий масив А3 з 7 елементів

Запис B[33]:=99 означає...

б) 33-му елементу масиву привласнюється значення 99;

Що змінює оператор присвоювання?

б) значення змінної

Дано фрагмент програми на мові Паскаль. Вияснити, что вона робить:
readln(a); S:=a*a;
writeln(S)

в) Вводить з клавіатури число а, знаходить квадрат цього числа і виводить результат на екран

Яке значення отримає X після виконання програми:
program modula;
var X:integer;
begin
X:=2;
if X-X*X>0 then X:=-X else X:=X-2;
writeln(X:5);
end.

Г) 0

Нехай x и y типу real. Що буде надруковано при виконанні наступних операторів:
x:=5.1; y:=4.8;
writeln(x+y:5:2);

В) 9.90

Знайдіть невірно записане на Паскалі число:

а) 2,0

Відмітьте невірно вказане ім’я змінної:

В) Spice Girls

Вкажіть вірний перелік стандартних функцій Паскаля:

б) sin(x) cos(x) ArcSin(x)

Знайдіть невірно записане на мові Паскаль число:

В) .27

Що обчислює наступна програма на мові Паскаль?
program first;
var S,a,b:real;
begin
readln(a); readln(b);
S:=0.5*a*b; writeln(S);
end.

в) Площа прямокутного трикутника зі сторонами a і b

Знайдіть значення змінної x після виконання операції присвоювання:
x:=15;
x:=x-10;

а) 5

Знайдіть значення змінних x та y після виконання операцій присвоєння:
x:=3; y:=3;
y:=x+y; y:=x-2*y;

б) x=3 y=-9

Вкажіть вірний запис виразу на мові Паскаль
[(ax-b)x+c]x-d

б) ((a*x-b)*x+c)*x-d

Вкажіть вірний запис на мові Паскаль виразу
x⁴+5*x:

г) sqr(sqr(x))+5*x

Вкажіть вірний запис на мові Паскаль виразу
(1+x)²:

б) (1+x)*(1+x)

Вкажіть вірний запис на мові Паскаль виразу
|a+bx|

г) abs(a+b*x)

Визначити значення змінної s після виконання наступних операторів:
s:=0; n:=5;
for i:=1 to n do
s:=s+i;

Г) 15

Який з фрагментів програми пошуку максимального з трьох дійсних чисел X, Y,Z не містить помилок:

Д)

Var x, y, z, max: Real;

Begin

Write(‘Введіть 3-и дійсних числа: ’);

Readln(x,y,z);

If x>y then max:=x else max:=y;

If z>max then max:=z;

Write(‘Max= ’, max); readln

End.

Який з фрагментів програми пошуку максимального з суми та добутку трьох дійсних чисел X, Y,Z не містить помилок:

В)

Var x, y, z, s, d: Real;

Begin

Write(‘Введіть 3-и дійсних числа: ’);

Readln(x,y,z);

s:=x+y+z; d:=x*y*z;

If s>p then Write(‘сума більше: ’ , s , ‘>’ , p) else

If s>p then Write(‘добуток більше: ’ , p , ‘>’ , s) else

Write(‘сума та добуток рівні ’, s , ‘=’ , p); readln

End.

Який з фрагментів програми отримання цілої та дробової частини числа Х не містить помилок:

Д)

Var x, y: Real;

Begin

Write(‘Введіть любе дійсне число х= ? ’ , #8);

Readln(x);

If (x>0) or (Frac(x)=0) then y:=Int(x) else y:=Int(x)-1

Write(‘[’ , x , ‘] = ’ , y : 1 : 0) {ціла частина}

Write(‘[’ , x , ‘] = ’ , x-y : 1 : 15) {дробова частина}

End.

Який з фрагментів програми обчислення факторіалу не містить помилок:

A)

Var n, i: 1..20; f: Comp;

Begin

Write(‘Введіть натуральне число ’);

Readln(n);

f:=0;

for i:=1 to n do f:=f*i;

Writeln(n:40, ‘! = ’ , f : 0 : 0)

End.

Який з фрагментів програми знаходження кількості цифр натурального числа n не містить помилок:

В)

…

q:=0;

while n>9 do begin

Inc(q);

n:=n div 10 end;

Який з фрагментів програми знаходження суми цифр натурального числа n не містить помилок:

Г)

s:=n mod 10;

while n>9 do begin

n:=n mod 10;

s:=s+n mod 10; end;

…

Який з фрагментів програми обчислення значення функції y=4x³-2x²+5 для значень х, що змінюється від -3 до 1, з кроком 0,1 не містить помилок:

A)

{$N+,E+,R+}

Var x,y:Extended;

Begin

x:=-3;

Repeat

y:=2*Sqr(x)*(2*x-1)+5;

Write(‘x= ’ , x :5 : 1, ‘ y= ‘,y : 10 : 4, ‘ ‘:12);

x:=x+0.1

until x<1;

End.

б)

Який з фрагментів програми, що містить циклічний алгоритм не містить помилок:

А) var x, y, real;

A:=21.2;

For x:=4 to 8 do;

y:=A*x + SQR(x);

End;

Який з фрагментів програми не містить помилок:

А) Label 22;

var a, b, c, p, z: real;

Begin

b:=3.2;

c:=4.3;

22: write(‘Введіть а’);

Readln(a);

p:=a + b + c;

z:= a*p +b*p + c*p;

if z>0 then begin

z:=SQR(z);

End;

Goto 22

End.

Який з фрагментів програми не містить помилок:

в) var i: real;

s: integer;

i:=10;

Repeat

y:= SQR(i)

until i>10;

Write y;

Який з фрагментів програми не містить помилок:

а) var s,y,x: real;

Begin

s:=0; x:=0.4;

Repeat

y:=x*sin(x);

s:=s+y;

until s>2;

End;end.

Який з фрагментів програми не містить помилок:

а) var A, x, y: real

i: integer

Begin

A:=4.2; x:=0.5;

for i:=1 to 5do

Begin

y:=sin(x+A)*x;

End; end.

Який з фрагментів програми не містить помилок:

г) var x, a, b, y, h:real;

Begin

Readln(a, b, h);

x:=a;

while x<=b+h/2 do

Begin

y:=x*sin(x);

writeln(x:6:1, y:9:2);

x:=x+h

End; end.

Який з фрагментів програми не містить помилок:

а) var x, y, z, A: real;

i: integer;

Begin

A:=4.2;

x:=0.4;

for i:=1 to 5 do

Begin

y:=x+sin(x+A);

End; end.

Який з фрагментів програми не містить помилок:

в) var D, x, y, A: real;

i: integer;

Begin

A:=1.2;

x:=0.5; D:=1;

for i:=1 to 8 do

Begin

y:=sin(A+x);

D:=D+y;

End; end.

Який з фрагментів програми не містить помилок:

а) var x, y, z, D: real;

Begin

D:=0;

x:=4.2;

z:=3.4;

Repeat

y:=x*sin(x+z);

D:=D+y;

until D>4;

End; end.

Який з фрагментів програми не містить помилок:

в) var p: integer;

Begin

p:=2;

while p<10 do

Begin

p:=2*p+1;

p:=p+1;

End; end.

Який з фрагментів програми не містить помилок:

б) var p, z: real;

p:=7.1;

while (p>7) and (p<20) do begin

p=(p+3)/2

p=p-1

End;

…

Який з фрагментів програми не містить помилок:

б) var x, y, s, min: real;

i: integer;

Begin

x:=0.5; s:=5.2;

min:=x*(s+x);

for i:=1 to5 do begin

y:=x*(s+x);

if min>y then min:=y;

x:=x+0.2;

end; writeln(‘min=’,min:4:2);

End.

Який з фрагментів програми пошуку максимального значення функції не містить помилок:

а) var x, y, s, max: real;

i: integer;

Begin

x:=0.4;s:=9.5;

max:=x*sin(x+s);

for i:=1 to 5 do begin

y:=x*sin(x+s);

if max>y then max:=y;

x:=x+0.3;

end; writeln(‘max=’,max:4:2);

End.

Який з фрагментів програми не містить помилок: Немає правильної відповіді

Який з фрагментів програми не містить помилок:

д) var s, x, y: real;

i: integer;

Begin

s:=0; x:=2.4;

for i:=1 to 15 do begin

y:=ln(x)*sin(x);

s:=s+y;

end; writeln(‘s=’,s:4:2);

End.

Який з фрагментів програми не містить помилок:

д) var D, x, y: real;

i: integer;

Begin

D:=1; x:=0.8;

for i:=1 to 14 do

Begin

y:=cos(x)*x;

D:=D*y;

end; writeln(‘D=’,D:4:2);

End.

Який з фрагментів програми не містить помилок:

Д) Label 333;

var x, y, z:real;

x:=0.5; z:=0.5;

333: y:=cos(x+z)+z;

x:=x+0.1;

if y>2 then

Goto 333

End;

Який з фрагментів програми не містить помилок:

б) var A, x, y: real;

Begin

A:=4.5; x:=0.2;

for i:=1 to12 do begin

y:=sin(x+A)*x

End; end.

Який з фрагментів програми не містить помилок:

д) var A, B, x, y: real;

Begin

A:=2.4; B:=0.4; x:=0.8;

Repeat

y=cos(A+B)*log(x);

x:=x+y;

until x<4

End; end.

Який з фрагментів програми не містить помилок:

в) var x, y, z, A: real;

i: integer;

Begin

A:=4.2; x:=0.4;

for i:=1 to 5 do begin

y=x+ln(x+A);

writeln(‘y= ’, y:5:2); end;

Readln; end.

Який з фрагментів програми пошуку максимального елементу масиву не містить помилок:

а) var a:array[1..20] of real;

i:integer;

Begin

maxA:=A[1];

for i:=2 to 20 do

Begin

if maxA>A[i] then

maxA:=A[i];

End;

Writeln(maxA);

End.

Який з фрагментів програми пошуку максимального елементу не містить помилок:

в) var a:array[1..15] of real;

i:integer;

maxA:=A[1];

while i<=15 do begin

if A[i]>maxA then

A[i]:=maxA; i:=i+1; end;

Writeln(maxA); end.

Який з фрагментів програми пошуку максимального елементу масиву не містить помилок:

а) var a:array[1..15] of real;

i:integer;

Begin

i:=1;

Repeat

if maxA>A[i] then

maxA:=A[i];

until i<15;

Write(maxA); end.

Який з фрагментів програми пошуку мінімального елементу не містить помилок:

б) var a:array[1..20] of real; i:integer;

Begin

minA:=A[i];

for i:=2 to 20 do begin

if A[i]<minA then

A[i]:=minA; end;

Writeln(minA);

End.

в

Який з фрагментів програми пошуку мінімального елементу не містить помилок:

в) var a:array[1..15] of real; i:integer;

minA:=A[i];

while i<=15 do begin

if A[i]<minA then

A[i]:=minA; i:=i+1; end;

Writeln(minA); end.

Який з фрагментів програми пошуку мінімального елементу не містить помилок:

a) var a:array[1..15] of real; i: integer;

Begin

i:=1;

Repeat

if minA:>A[i] then

minA:=A[i];

until i<15;

Write(minA); end.

Який з фрагментів програми знаходження суми елементів масиву не містить помилок:

г) var a:array[1..10] of real; s,i:real;

Begin

for i:=1 to 10 do begin

s:=s+A[i]; i:=i+1; end;

writeln(s:4:2); end.

Який з фрагментів програми сортування масиву в порядку зростання не містить помилок:

б) var a:array[1..20] of real; n,i,j,c : integer;

Begin

for i:=1 to n do

if a[i]>a[i+1] then begin

a[i+1]:=a[i]; end;

for i:=1 to n do

write(a[i]:4); end.

Який з фрагментів програми знаходження добутку елементів масиву не містить помилок

в) var a:array[1..10] of real; i:integer; d:real;

Begin

d:=1;

for i:=1 to 10 do begin

d:=d*A[i]; end;

writeln(d:4:2); end.

Який з фрагментів програми знаходження кількості парних елементів масиву не містить помилок:

в) var a:array[1..20] of integer;

k,i:integer;

Begin

k:=0;

for i:=1 to 20 do

if A[i] mod 2=0 then Inc(k); end;

writeln(k:2:0); end.

Який з фрагментів програми обчислення суми додатніх і кількості від’ємних елементів масиву, не містить помилок:

a) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, q : 0 .. n; sum: LongInt;

Begin

sum:=0; q:=1;

for i:=1 to n do begin

if a[i]<0 then sum:=sum+a[i];

if a[i]>0 then q:=q+1; end;

writeln(‘Сума додатніх членів : ’, sum);

writeln(‘Кількість від’ємних членів : ’, q ); readln; End.

б) const a : array [1..10] of real = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, q : 0 .. n; sum: LongInt;

Begin

sum:=1; q:=1;

for i:=1 to n do begin

if a[i]>0 then sum:=sum+a[i];

if a[i]<0 then q:=q+1; end;

writeln(‘Сума додатніх членів : ’, sum);

writeln(‘Кількість від’ємних членів : ’, q ); readln; End.

в) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, q : 0 .. n; sum: LongInt;

Begin

sum:=0; q:=0;

for i:=1 to n do begin

if a[i]<0 then sum:=sum+a[i];

if a[i]>0 then q:=q+1; end;

writeln(‘Сума додатніх членів : ’, sum);

writeln(‘Кількість від’ємних членів : ’, q ); readln; End.

г) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, q : 0 .. n; sum: LongInt;

Begin

sum:=0; q:=0;

for i:=1 to n do begin

if a[i]>0 then sum:=sum+a[i];

if a[i]<0 then q:=q+1; end;

writeln(‘Сума додатніх членів : ’, sum);

writeln(‘Кількість від’ємних членів : ’, q ); readln; End.

д) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, q : 0 .. n; sum: LongInt;

Begin

sum:=1; q:=0;

for i:=2 to n do begin

if a[i]>0 then sum:=sum+a[i];

if a[i]<0 then q:=q+1; end;

writeln(‘Сума додатніх членів : ’, sum);

writeln(‘Кількість від’ємних членів : ’, q ); readln; End.

Який з фрагментів програми знаходження непарних елементів масиву не містить помилок:

a) var a:array[1..20] of integer; k,i:integer;

begin

for i:=1 to 20 do

if A[i] odd 2=1 then writeln(A[i]:4:2);

end; end.

б) var a:array[1..20] of integer; k,i:real;

begin

for i:=1 to 20 do

if A[i] trunc 2=1 then writeln(A[i]:4:2);

end; end.

в) var a:array[1..20] of real;

k,i:integer;

for i:=1 to 20 do

if A[i] frac 2=0 then writeln(A[i]:4:2);

end; end.

г) var a:array[1..20] of integer; k,i:integer;

begin

for i:=1 to 20 do

if A[i] div 2=1 then writeln(A[i]:4:2);

end; end.

д) var a:array[1..20] of integer; k,i:integer;

begin

for i:=1 to 20 do

if A[i] mod 2=1 then writeln(A[i]:4:2);

end; end.

Який з фрагментів програми обчислення кількості таких і, що а_і не менше всіх попередніх, не містить помилок:

a) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, max, q : Integer;

Begin

q:=1; max:=a[1];

for i:=2 to n do

if a[i]>=max then begin max:=a[i]; Inc(q) end;

write(q); readln; End.

б) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, max, q : Integer;

Begin

q:=1; max:=a[1];

for i:=2 to n do

if a[i]<=max then begin max:=a[i]; Inc(q) end;

write(q); readln; End.

в) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, max, q : Integer;

Begin

q:=0; max:=a[0];

for i:=2 to n do

if a[i]>=max then begin max:=a[i]; Dec(q) end;

write(q); readln; End.

г) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, max, q : Integer;

Begin

q:=0; max:=a[1];

for i:=1 to n do

if a[i]>=max then begin max:=a[i]; Dec(q) end;

write(q); readln; End.

д) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, max, q : Integer;

Begin

q:=1; max:=a[1];

for i:=2 to n do

if a[i]>=max then begin max:=a[i]; trunc(q) end;

write(q); readln; End.

Який з фрагментів програми заміни всіх членів послідовності а₁, . . а_n більше 7 числом 7, не містить помилок:

a) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, q , n : Byte;

Begin

q:=1;

for i:=1 to n do begin

if a[i]>7 then begin a[i]:=7; Inc(q); end;

writeln(‘Всього виконано замін : ’, q); readln; End.

б) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, q , n : Byte;

Begin

q:=0;

for i:=1 to n do begin

if a[i]>7 then begin a[i]:=7; Inc(q); end;

writeln(‘Всього виконано замін : ’, q); readln; End.

в) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, q , n : Byte;

Begin

q:=1;

for i:=1 to n do begin

if a[i]>7 then begin a[i]:=7; Dec(q) end;

writeln(‘Всього виконано замін : ’, q); readln; End.

г)

const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, q , n : Byte;

Begin

q:=0;

for i:=2 to n do begin

if a[i]>7 then begin a[i]:=7; Dec(q) end;

writeln(‘Всього виконано замін : ’, q); readln; End.

д) const a : array [1..10] of integer = (10, -2, 12, 4, -8, 3, 7, 2, 2, 9);

Var i, q , n : Byte;

Begin

q:=0;

for i:=1 to n do begin

if a[i]>7 then begin a[i]:=7; Trunc(q); end;

writeln(‘Всього виконано замін : ’, q); readln; End.

Який з фрагментів програми обчислення кількості чисел, більших середнього арифметичного членів послідовності а₁, . . а_n , не містить помилок:

a) const n=10;

Var a : array [1..n] of Real = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);

i, q : Byte; sum : Real;

Begin q:=0; sum:=0;

for i:=1 to n do sum:=sum+a[i];

sum:=sum/n;

for i:=1 to n do if a[i]<sum then Inc(q);

writeln(q); readln; End.

б) const n=10;

Var a : array [1..n] of Integer = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);

i, q : Byte; sum : Real;

Begin q:=0; sum:=0;

for i:=1 to n do sum:=sum+a[i];

sum:=sum/n;

for i:=1 to n do if a[i]>sum then Dec(q);

writeln(q); readln; End.

в) const n=10;

Var a : array [1..n] of Real = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);

i, q : Byte; sum : Real;

Begin q:=1; sum:=0;

for i:=1 to n do sum:=sum+a[i];

sum:=sum/n;

for i:=1 to n do if a[i]>sum then Dec(q);

writeln(q); readln; End.

г) const n=10;

Var a : array [1..n] of Real = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);

i, q : Byte; sum : Real;

Begin q:=0; sum:=0;

for i:=1 to n do sum:=sum+a[i];

sum:=sum/n;

for i:=1 to n do if a[i]>sum then Inc(q);

writeln(q); readln; End.

д) const n=10;

Var a : array [1..n] of Real = (10.4, -2.7, 12.1, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 9.3);

i, q : Byte; sum : Real;

Begin q:=0; sum:=0;

for i:=1 to n do sum:=sum*a[i];

sum:=sum/n;

for i:=1 to n do if a[i]<sum then Inc(q);

writeln(q); readln; End.

Який з фрагментів програми обчислення кількості максимальних чисел членів послідовності а₁, . . а_n , не містить помилок:

a) const n=10;

Var a : array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);

i, q : Double; max : Real;

Begin q:=1; max:=a[1];

for i:=2 to n do

if a[i]>max then

begin max:=a[i]; q:=2; end

else if a[i]=max then Inc(q);

writeln(q); readln; End.

б) const n=10;

Var a : array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);

i, q : Byte; max : Real;

Begin q:=1; max:=a[1];

for i:=2 to n do

if a[i]>max then

begin max:=a[i]; q:=1; end

else if a[i]<max then Dec(q);

writeln(q); readln; End.

в) const n=10;

Var a : array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);

i, q : Double; max : Real;

Begin q:=1; max:=a[1];

for i:=2 to n do

if a[i]<max then

begin max:=a[i+1]; q:=1; end

else if a[i]=max then Dec(q);

writeln(q); readln; End.

г) const n=10;

Var a : array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);

i, q : Byte; max : Real;

Begin q:=1; max:=a[1];

for i:=2 to n do

if a[i]<max then

begin max:=a[i]; q:=1; end

else if a[i]=max then Inc(q);

writeln(q); readln; End.

д) const n=10;

Var a : array [1..n] of Real = (10.4, -2.7, 17, 4.6, -8.2, 3.1, 7.2, 2.05, 2.8, 17);

i, q : Byte; max : Real;

Begin q:=1; max:=a[1];

for i:=2 to n do

if a[i]>max then

begin max:=a[i]; q:=1; end

else if a[i]=max then Inc(q);

writeln(q); readln; End.

Який з фрагментів програми пошуку номера елемента х в послідовності а₁, . . а_n , не містить помилок:

a) const x=13; n=10; a : array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);

Var i : 1 . . n;

Begin i:=1;

while (a[i] >x) and (i<n) do Inc(i);

if a[i]< >x then write (‘Заданого елемента немає! ’)

else write (‘Номер елемента : ’, i); end.

б) const x=13; n=10; a : array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);

Var i : 1 . . n;

Begin i:=1;

while (a[i]< x) and (i<n) do Dec(i);

if a[i]< >x then write (‘Заданого елемента немає! ’)

else write (‘Номер елемента : ’, i); end.

в) const x=13; n=10; a : array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);

Var i : 1 . . n;

Begin i:=1;

while (a[i]>x) and (i<n) do trunc(i);

if a[i]< >x then write (‘Заданого елемента немає! ’)

else write (‘Номер елемента : ’, i); end.

г) const x=13; n=10; a : array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);

Var i : 1 . . n;

Begin i:=1;

while (a[i]<x) and (i<n) do odd(i);

if a[i]< >x then write (‘Заданого елемента немає! ’)

else write (‘Номер елемента : ’, i); end.

д) const x=13; n=10; a : array [1..n] of Real = (10, 6, 55, -1, 13, 6, 29, -80, 1, -16);

Var i : 1 . . n;

Begin i:=1;

while (a[i]< >x) and (i<n) do Inc(i);

if a[i]< >x then write (‘Заданого елемента немає! ’)

else write (‘Номер елемента : ’, i); end.

За допомогою якого символа присвоюється значення змінній

д) ":="

За допомогою якого символа можна вивести на екран значення змінної

в)"="