writeln(maxA); end. ⇐ ПредыдущаяСтр 5 из 5
г) 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.
За допомогою якого символа присвоюється значення змінній
а)";" б)":" в)"," г)"®" ? д) ":="
За допомогою якого символа можна вивести на екран значення змінної
а)";" б)":" в)"=" г)"," д) ":="
©2015 arhivinfo.ru Все права принадлежат авторам размещенных материалов.
|