В базе данных нужно создать форму и включить фильтр на графу клуб и спорт что бы высветилось только нужные тебе люди , также добавить отображение Фамилии
Program ex;
type mass=array[1..10] of integer;
var sum, i:integer;
sr:real;
C:mass;
begin
writeln;
write ('Введите 10 элементов массива: ');
for i:=1 to 10 do
read(С[i]);
sum:=0;
for i:=1 to 10 do
begin
sum:=sum+c[i];
end;
sr:=sum/2;
write('Среднее арифметическое=',sr);
<span>end.</span>
A + b = c
b - c = a
a / b = a
начало
1 Взять котёл.
2 Налить воду в ведро
3 Перелить воду из ведра в котёл.
4 Развести огонь
5 Поставить котёл на огонь.
6 Взять топор
7 Положить топор в котел.
8 Найти крупу
9 Добавить крупу в котел
10 Достать чистую посуду
11 Снять котёл с огня.
12 Положить получившуюся кашу в посуду.
13 Найти масло
14 Добавить в кашу масло
конец
Const
s='вернисаж';
begin
Writeln(s[3]+copy(s,1,2)+Copy(s,4,2)+s[2]);
Writeln(Copy(s,6,3)+s[7]);
Writeln(s[4]+Copy(s,2,2)+s[1])
end.
<em><u>Результат выполнения программы:</u></em>
рвение
сажа
нерв