 |
|
writeln(maxA); end.
г) var a:array[1..15] of real;
maxA:real; i:integer;
begin
maxA:=A[15]; i:=0;
while i>=15 do begin
if A[i]>maxA then
maxA:=A[i]; i:=i+1; end;
writeln(maxA); end.
д) var a:array[1..15] of real;
maxA:real; i:integer;
begin
maxA:=A[1]; i:=1;
while i>=15 do begin
if A[i]>maxA then
maxA:=A[i]; 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..15] of real;
i:integer;
maxA:real;
i:=1; maxA:=A[i];
repeat
if maxA>A[i] then
A[i]:=maxA;
until i>15;
write(maxA); end.
в) var a:array[1..15] of real;
i:integer; maxA:real;
begin
i:=1; maxA:=A[1];
repeat
if A[i]>maxA then
maxA:=A[i]; i:=i+1;
until i>15;
write(maxA); end.
г) var a:array[1..15] of real;
i:integer; maxA:real;
begin
i:=1; maxA:=A[1];
repeat
if A[i]>maxA then
maxA:=A[i]; i:=i+1;
until i=15;
write(maxA); end.
д) var a:array[1..15] of real;
i:integer; maxA:real;
begin
i:=1; maxA:=A[1];
repeat
if A[i]>maxA then
maxA:=A[i]; i:=i*i;
until i>15;
write(maxA); end.
Який з фрагментів програми пошуку мінімального елементу не містить помилок:
а) var a:array[1..20] of real; i:integer;
begin
minA:=A[1];
for i:=2 to 20 do begin
if minA<A[i] then
minA:=A[i];
end;
writeln(minA);
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..20] of real; i:integer;
minA:real;
begin
minA:=A[1];
for i:=2 to 20 do begin
if A[i]<minA then
minA:=A[i]; end;
writeln(minA);
end.
г) var a:array[1..20] of real; i:integer;
minA:real;
begin
minA:=0;
for i:=1 to 20 do begin
if A[i]>minA then
minA:=A[i]; end;
writeln(minA);
end.
д) var a:array[1..20] of real; i:integer;
minA:real;
begin
minA:=A[i];
for i:=2 to 20 do begin
if A[i]<minA then
minA:=A[i]; end;
writeln(minA);
end.
Який з фрагментів програми пошуку мінімального елементу не містить помилок:
a) var a:array[1..15] of real; i:integer; minA:real;
begin
minA:=A[1]; i:=1;
while i<=15 do begin
if A[i]<minA then
minA:=A[i]; i:=i+1; end;
writeln(minA); end.
б) var a:array[1..15] of real; i:integer;
minA:=A[1];
while i>=15 do begin
if minA<A[i] then
minA:=A[i]; 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.
г) var a:array[1..15] of real; i:integer; minA:real;
begin
minA:=A[1]; i:=1;
while i>15 do begin
if A[i]<minA then
minA:=A[i]; i:=i+1; end;
writeln(minA); end.
д) var a:array[1..15] of real; i:integer; minA:real;
begin
minA:=A[1]; i:=1;
while i=15 do begin
if A[i]<minA then
minA:=A[i]; 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..15] of real; i: integer; minA: real;
i:=1; minA:=A[i];
repeat
if minA<A[i] then
A[i]:=minA;
until i>15;
write(minA); end.
в) var a:array[1..15] of real; i: integer; minA: real;
begin
i:=1; minA:=A[1];
repeat
if A[i]<minA then
minA:=A[i];
i:=i+1;
until i>15;
write(minA); end.
г) var a:array[1..15] of real; i: integer; minA: real;
begin
i:=1; minA:=A[1];
repeat
if A[i]<minA then
minA:=A[i];
i:=i*i;
until i>15;
write(minA); end.
д) var a:array[1..15] of real; i: integer; minA: real;
begin
i:=1; minA:=A[1];
repeat
if A[i]<minA then
minA:=A[i];
i:=i+1;
until i<15;
write(minA); end.
Який з фрагментів програми знаходження суми елементів масиву не містить помилок:
a) var a:array[1..10] of real; s,i:integer;
begin
s:=0;
for i:=1 to 10 step 1 do begin
s:=s+A[i]; end;
writeln(s); end.
б) var a:array[1..10] of real; s,i:real;
begin
s:=0;
for i:=1 to 10 do
s:=s+A[i];
writeln(s:4:2); end.
в) var a:array[1..10] of real;
i:integer; s:real;
begin
s:=0;
for i:=1 to 10 do begin
s:=s+A[i]; end;
writeln(s:4:2); 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..10] of real; s,i:real;
begin
for i:=1 to 10 do begin
s:=s+A[i]; i:=i*i; end;
writeln(s:4:2); end.
Який з фрагментів програми сортування масиву в порядку зростання не містить помилок:
a) var a:array[1..20] of integer; n,i,j,c : integer;
begin
for j:=1 to n-1 do
for i:=1 to n-j do
if a[i]>a[i+1] then begin
c:=a[i+1]; a[i+1]:=a[i]; a[i]:=c; end;
for i:=1 to n do
write(a[i]:4); 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 а:array[1..20] of integer; n,i,j,c : integer;
begin
for j:=1 to n do
for i:=1 to n do
if a[i+1]>a[i] then begin
c:=a[i]; a[i]:=a[i+1]; a[i+1]:=c; end;
for i:=1 to n do
write(a[i]:4); end.
г) var a:array[1..20] of integer; n,i,j,c : integer;
begin
for j:=1 to n-1 do
for i:=1 to n-1 do
if a[i]>a[i+1] then begin
c:=a[i+1]; a[i+1]:=a[i]; a[i]:=c; end;
for i:=1 to n do
write(a[i]:4); end.
д) var a:array[1..20] of integer; n,i,j,c : integer;
begin
for j:=1 to n do
for i:=1 to j do
if a[i]>a[i+1] then begin
c:=a[i+1]; a[i+1]:=a[i]; a[i]:=c; end;
for i:=1 to n do
write(a[i]:4); end.
Який з фрагментів програми знаходження добутку елементів масиву не містить помилок
a) var a:array[1..10] of real; d,i:integer;
begin
d:=0;
for i:=1 to 10 do begin
d:=d*A[i]; end;
writeln(d); end.
б) var a:array[1..10] of real; d,i:integer;
begin
for i:=1 to 10 do begin
d:=d*A[i]; end;
writeln(d:6:3); 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..10] of real; i:integer; d:real;
begin
d:=1;
for i:=0 to 10 do begin
d:=d+A[i]; end;
writeln(d:4:2); end.
д) var a:array[1..10] of real; i:integer; d:real;
begin
d:=1;
for i:=2 to 10 do begin
d:=d*A[i]; end;
writeln(d:4:2); end.
Який з фрагментів програми знаходження кількості парних елементів масиву не містить помилок:
a) var a:array[1..20] of real; k,i:integer;
k:=0;
for i:=1 to 20 do
if A[i] mod 2=0 then k:=k+2; end;
writeln(k:2:0); end.
б) var a:array[1..20] of real;
k,i:integer;
k:=0;
for i:=1 to 20 do
if A[i] mod 2=1 then k:=k+1; end;
Writeln(k:2:0); 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.
г) 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 Dec(k); end;
writeln(k:2:0); 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 k:=Dec(k)+1; 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.
Який з фрагментів програми заміни всіх членів послідовності а1, . . а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.
Який з фрагментів програми обчислення кількості чисел, більших середнього арифметичного членів послідовності а1, . . а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.
Який з фрагментів програми обчислення кількості максимальних чисел членів послідовності а1, . . а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.
Який з фрагментів програми пошуку номера елемента х в послідовності а1, . . а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.
За допомогою якого символа присвоюється значення змінній
а)";" б)":" в)"," г)"®" ? д) ":="
За допомогою якого символа можна вивести на екран значення змінної
а)";" б)":" в)"=" г)"," д) ":="