журнал «Информатика и образование» - Информатика и образование 2010 №11

ìàññèâ èç 30 ýëåìåíòîâ. Ýëåìåíòû ìàññèâà
ìîãóò ïðèíèìàòü öåëûå çíà÷åíèÿ îò 0 äî 100 — áàëëû ó÷àùèõñÿ âûïóñêíîãî êëàññà
çà èòîãîâûé òåñò ïî èíôîðìàòèêå. Äëÿ ïîëó÷åíèÿ ïîëîæèòåëüíîé îöåíêè çà òåñò
òðåáîâàëîñü íàáðàòü íå ìåíåå 20 áàëëîâ. Îïèøèòå íà ðóññêîì ÿçûêå èëè íà îäíîì
èç ÿçûêîâ ïðîãðàììèðîâàíèÿ àëãîðèòì, êîòîðûé íàõîäèò è âûâîäèò ìèíèìàëüíûé
áàëë ñðåäè ó÷àùèõñÿ, ïîëó÷èâøèõ çà òåñò ïîëîæèòåëüíóþ îöåíêó. Èçâåñòíî, ÷òî â
êëàññå õîòÿ áû îäèí ó÷àùèéñÿ ïîëó÷èë çà òåñò ïîëîæèòåëüíóþ îöåíêó.
Çàäàíèå 11. Ïîìåíÿéòå âòîðîé ñòîëáåö ìàòðèöû ñ ïðåäïîñëåäíèì.
Çàäàíèå 12. Äàíà êâàäðàòíàÿ ìàòðèöà ïîðÿäêà N.  ìàòðèöå âû÷èñëèòå ñðåäíåå
àðèôìåòè÷åñêîå ïîëîæèòåëüíûõ ýëåìåíòîâ, ñòîÿùèõ íà ãëàâíîé äèàãîíàëè.
Çàäàíèå 13. Íàéòè ñóììó âñåõ ýëåìåíòîâ êâàäðàòíîé ìàòðèöû, ðàñïîëîæåííûõ
ïî ãëàâíîé äèàãîíàëè è âûøå åå.
Çàäàíèå 14. Äàíà âåùåñòâåííàÿ êâàäðàòíàÿ ìàòðèöà ðàçìåðà n. Ïîìåíÿéòå ìåñòàìè ýëåìåíòû ãëàâíîé è ïîáî÷íîé äèàãîíàëåé ìàòðèöû ïî ñòîëáöàì.
Çàäàíèå 15. Äàíà âåùåñòâåííàÿ ìàòðèöà ðàçìåðà m×n. Îïðåäåëèòå èíäåêñû ïåðâîãî íóëåâîãî ýëåìåíòà ìàòðèöû. Îáõîä äåëàéòå ïî ñòîëáöàì.

Îòâåòû
Òðåíèðîâî÷íûå óïðàæíåíèÿ
Çàäàíèå 1.
program t1;
var
a: array[1..10] of integer;
i: integer;
begin
a[1]:=2;
for i:=2 to 10 do
a[i]:=a[i
1]*2;

www.infojournal.ru

34

for i:=1 to 10 do
write(a[i]:7);
end.

Çàäàíèå 2.
program t2;
var
a: array[1..15] of integer;
i, min, max: integer;
begin
for i:=1 to 15 do
read(a[i]);
min:=a[1];
max:=a[1];
for i:=2 to 15 do
begin
if a[i]>max then max:=a[i];
if a[i]a[i] then min:=a[i];
if max0) then
k:=k+1;
writeln('Количество соседств двух положительных чисел  ', k);
end.

Çàäàíèå 8.
program t8;
var
a: array [1..30,1..30] of integer;
i, j, s, n: integer;
begin
readln(n);
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(5);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;

35

www.infojournal.ru

36

for i:=1 to n do
for j:=i+1 to n do
if j>=i then
s:=s+a[i,j];
writeln('s=', s);
end.

Çàäàíèå 9 (ôðàãìåíò).
for j:=1 to m do
begin
y:=0;
for i:=1 to n do
if a[i,j]a[i] then
begin

ÈÍÔÎÐÌÀÒÈÊÀ È ÎÁÐÀÇÎÂÀÍÈÅ, ¹ 11—2010

min:=a[i];
Nmin:=I;
end;
if maxt[i] then
begin
min:=t[i];
Nmin:=i;
end;
write('В ', Nmin, '
й день температура была близка к средней');
end.

Çàäàíèå 7.
program s7;
const N=30;
var
a: array [1..N1 of integer;
i, x, у: integer;
s: real;
begin
x:=0;
y:=0;
for i:=l to N do
begin
readln(a[i]);
if a[i]>45 then
begin
x:=x+a[i];
inc(y);
end;
end;
s:=x/y;
write('s=', s:0:2);
end.

Çàäàíèå 8.
program s8;
const n=30;
var
a: array[1..n] of integer;
i, Nmax: integer;
max, s: longint;
begin
for i:=1 to n do
read(a[i]);
max:=a[1]+a[2]+a[3]+a[4];
Nmax:=1;
for i:=2 to n
3 do
begin
s:=a[i]+a[i+1]+a[i+2]+a[i+3];
if max0);
y:=1;
repeat
yp:=y;
y:=(yp+x/yp)/2;
until abs(yyp) --">