num :=1; m :=Dat [1] = 7
нет
-7
1
3 * -7 < 0
да
3
3
6 * 3 < 0
нет
-4
5
-4 * 3 < 0
да
3
6
3
3
3 * -4 < 0
да
3
6
5 * 3 < 0
нет
3
6
5 * 3 < 0
нет
7 * 3 < 0
нет
3
6
1 * 3 < 0
нет
3
6
Задача 2
var k, m, num: integer;
Dat: array [1..10] of integer;
begin
Dat [1] := -7; Dat [2] := -8;
Dat [3] := 3; Dat [4] := 6;
Dat [5] := -4; Dat [6] := 3;
Dat [7] := 5; Dat [8] := 5;
Dat [9] := 7; Dat [10] := 1;
num :=1; m :=Dat [1];
for k :=2 to 10 do begin
if Dat [k] * m < 0 then
begin
m :=Dat [k]; num :=k;
end;
end;
write (m);
end.
Пояснение:
num = 1; m = Dat [1] = -7
нет
41
41 > 20
да
41
14 > 41
нет
41
20
21 > 41
нет
41
28 > 41
нет
41
12 > 41
нет
15 > 41
нет
41
35 > 41
нет
41
Задача 3
var k, m : integer;
Dat: array [1..10] of integer;
begin
Dat [1] := 16; Dat [2] := 20;
Dat [3] := 20; Dat [4] := 41;
Dat [5] := 14; Dat [6] := 21;
Dat [7] := 28; Dat [8] := 12;
Dat [9] := 15; Dat [10] := 35;
m := 0;
for k := 1 to 10 do
if Dat [k] >m then
begin
m :=Dat [k];
end;
write (m);
end.
Пояснение:
16 > 0
да
16
m = 0
нет
1
2
3 < 1
нет
1
2
2 < 1
нет
1
2
1
2
2 < 1
нет
1
2
5 < 1
нет
1
2
5 < 1
нет
7 < 1
нет
1
2
1 < 1
нет
1
2
Задача 4
var k, m, day: integer;
Dat: array [1..10] of integer;
begin
Dat [1] := 7; Dat [2] := 1;
Dat [3] := 3; Dat [4] := 3;
Dat [5] := 2; Dat [6] := 2;
Dat [7] := 5; Dat [8] := 5;
Dat [9] := 7; Dat [10] := 1;
day :=1; m :=Dat [1];
for k :=2 to 10 do begin
if Dat [k] < m then
begin
m :=Dat [k]; day :=k;
end;
end;
write (day);
end.
Пояснение:
day :=1; m :=Dat [1] = 7;
да
85+15=100
15 < 45
да
100+20=120
20 < 45
да
120
45+40+85
80 < 45
нет
120+35=155
35 < 45
да
155
70 < 45
нет
10 < 45
да
155+10=165
45 < 45
нет
165
Задача 5
var k, m: integer;
Dat: array [1..10] of integer;
begin
Dat [1] := 45; Dat [2] := 55;
Dat [3] := 40; Dat [4] := 15;
Dat [5] := 20; Dat [6] := 80;
Dat [7] := 35; Dat [8] := 70;
Dat [9] := 10; Dat [10] := 45;
m :=Dat [1];
for k :=2 to 10 do begin
if Dat [k] < Dat [1] then
begin
m := m + Dat [k];
end;
end;
write (m);
end.
Пояснение:
m = Dat [1] = 45
Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть