Вариант 1
1. В таблице Pos хранятся данные о количестве
посетителей школьного музея за семь дней (Pos[1] – данные за первый день,
Pos[2] – за второй день и т.д.). Определите число, которое будет
напечатано в результате работы следующей программы.
Var
k, m, day: integer;
Pos:
array[1..7] of integer;
Begin
Pos[1]
:= 17; Pos[2] := 19; Pos[3] := 20; Pos[4] :=
18; Pos[5] := 16; Pos[6] := 20; Pos[7] := 16;
day
:= 1; m := Pos[1];
for
k:=2 to 7 do
if Pos[k] < m then
begin
m := Pos[k];
day := k
end;
write(day);
End.
|
2.
Запишите
значение переменной s, полученное в результате работы следующей
программы.
Var s,k: integer;
Begin
s := 0;
for k := 6 to 12 do
s := s + 5;
writeln(s);
End.
|
3. Дан массив из 30 элементов. Составьте программу нахождения суммы
положительных элементов. Элементы вводятся с помощью генератора случайных
чисел.
Вариант 2
1. В таблице Dat хранятся отметки учащихся 9
класса за самостоятельную работу (Dat[1] – отметка первого
учащегося, Dat[2] – второго и т. д.). Определите, какое число будет
напечатано в результате работы следующей программы.
Var k, m: integer;
Dat: array[1..10] of
integer;
Begin
Dat[1] := 4; Dat[2] :=
5; Dat[3] := 4; Dat[4] := 3; Dat[5] := 2; Dat[6] := 3; Dat[7] := 4; Dat[8]
:= 5;
Dat[9] := 5; Dat[10] :=
3;
m := 0;
for k := 1 to 10 do
if Dat[k] < 4 then
m := m + Dat[k];
writeln(m);
End.
2. Запишите значение переменной s, полученное в
результате работы следующей программы.
Var
s,k: integer;
Begin
s
:= 0;
for
k := 7 to 11 do
s := s+11;
writeln(s);
End.
3. Дан массив из 20 элементов. Составьте
программу нахождения произведения отрицательных элементов. Элементы вводятся с
помощью генератора случайных чисел.
Вариант 3
1. В таблице Ball хранятся баллы, набранные
участниками школьного тура олимпиады по математике (Ball[1] – балл 1
ученика, Ball[2] – балл 2 ученика и т.д.). Определите, что будет
напечатано в результате работы следующей программы.
Var k, m, t: integer;
Ball: array[1..10] of integer;
Begin
Ball[1]:=42; Ball[2]:=25; Ball[3]:=13; Ball[4]:=18;
Ball[5]:=15; Ball[6]:=55; Ball[7]:=48; Ball[8]:=13; Ball[9]:=64; Ball[10]:=45;
m := Ball[1];
for k := 1 to 10 do
if Ball[k] < m then m :=
Ball[k];
write(m);
End.
2. Определите, что будет напечатано в результате
работы следующей программы.
Var s,k: integer;
Begin
s := 0;
for k := 15 to 19 do
s := s+8;
writeln(s);
End.
3. Дан массив из 25 элементов. Составьте
программу нахождения суммы отрицательных элементов. Элементы вводятся с помощью
генератора случайных чисел.
4 вариант
1. В таблице Dat хранятся данные измерений
среднесуточной температуры за 10 дней в градусах (Dat[1] – данные за первый
день, Dat[2] – за второй и т. д.). Определите, какое число будет напечатано в
результате работы следующей программы.
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] :=
15; Dat[5] := 14; Dat[6] := 12; Dat[7] := 10;
Dat[8] := 13; Dat[9] := 14; Dat[10] := 15;
m := 20;
for k := 1 to 10 do
if Dat[k]<m then
begin
m := Dat[k]
end;
writeln(m);
End.
2. Определите, что будет напечатано в результате
работы следующей программы.
Var
s,k: integer;
Begin
s:=1;
for
k:=1 to 5 do
s:=s
* k;
write(s);
End.
3. Дан массив из 15 элементов. Составьте
программу нахождения произведения положительных элементов. Элементы вводятся с
помощью генератора случайных чисел.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.