сначала 10 если кучки по 5 равны то 2 оставшиеся
Ответ: 5.
Если Dat[k] < m, то m:=Dat[k], day:=k, где изначально m:=Dat[1]
Dat[2]<m => 9<7 - нет, значит проверяем следующий элемент
Dat[3]<m => 10<7 - нет,
Dat[4]<m => 8<7 - нет,
Dat[5]<m => 6<7 - да, значит m:=Dat[5]; day:=5;
Dat[6]<m => 7<6 - нет
Dat[7]<m => 6<6 - нет
В итоге выводится переменная day, которая после цикла равна 5
При переносе в ячейку f7: =($C$3+D8)/E9
При переносе в ячейку d8: =($C$3+B9)/C10
uses crt;
type TRec = Record
FIO: String[20];
TEL: String[7]
end;
var rec: TRec; i:integer;
who:string; flag:boolean;
a: array [1..20] of TRec;
begin
a[1].FIO := 'Иванов Петр';
a[1].TEL := '+374844';
a[2].FIO := 'Крылова Света';
a[2].TEL := '+373129';
a[3].FIO := 'Соловей Иван';
a[3].TEL := '+370929';
//создай дальше до 10 сама
write('Write fio '); readln(who);
for i:=1 to 3 do
begin
if a[i].FIO = who then
begin
writeln('Номер ',who,' = ',a[i].TEL) ;
flag:=true;
end
else
flag:=false;
end;
if flag=false then
writeln('cannot find ',who);
readln;
end.
1-a
2-а
3-b
4-d
5-c
6-b
7-b
8-b
9-a
10-d
11-d
12-c
13-d
14-a
15-a
16-a
17-b
18-d
19-d
20-a
21-b