Const
nn=100;
type
Abit=record
fio:string;
ball:array[1..3] of byte;
from:string;
midb:real
end;
var
t:Abit;
mAb:array[1..nn] of Abit;
i,j,n,m:integer;
midinst:real;
begin
{ ввод исходных данных }
Write('Количество абитуриентов (до 100): '); Readln(n);
Write('Средний балл по институту: '); Readln(midinst);
m:=0;
for i:=1 to n do
begin
Writeln('Абитуриент № ',i);
With mAb[i] do begin
Write('Фамилия, И.О.: '); Readln(fio);
Write('Баллы по трем предметам через пробел: ');
Readln(ball[1],ball[2],ball[3]);
midb:=(ball[1]+ball[2]+ball[3])/3;
Write('Место жительства: '); Readln(from)
end;
if mAb[i].midb>midinst then m:=m+1;
end;
{ простейшая обменная сортировка по убыванию }
for i:=1 to n-1 do
for j:=i+1 to n do
if mAb[i].midb<mAb[j].midb then begin
t:=mAb[i];
mAb[i]:=mAb[j];
mAb[j]:=t
end;
{ вывод }
Writeln;
Writeln('Количество поступающих со средним баллом выше среднеинститутского: ',m);
for i:=1 to n do
with mAb[i] do
Writeln(fio,' ',ball[1]:2,ball[2]:2,ball[3]:2,' ',from)
end.
<em><u>Тестовое решение:</u></em>
Количество абитуриентов (до 100): 4
Средний балл по институту: 5.94
Абитуриент № 1
Фамилия, И.О.: Иванов А.Г.
Баллы по трем предметам через пробел: 9 7 5
Место жительства: Вологда
Абитуриент № 2
Фамилия, И.О.: Петров Л.Л.
Баллы по трем предметам через пробел: 9 9 9
Место жительства: Грязевец
Абитуриент № 3
Фамилия, И.О.: Раковский Д.Г.
Баллы по трем предметам через пробел: 4 4 5
Место жительства: Сокол
Абитуриент № 4
Фамилия, И.О.: Акимова Я.С.
Баллы по трем предметам через пробел: 9 5 4
Место жительства: Харовск
Количество поступающих со средним баллом выше среднеинститутского: 3
Петров Л.Л. 9 9 9 Грязевец
Иванов А.Г. 9 7 5 Вологда
Акимова Я.С. 9 5 4 Харовск
Раковский Д.Г. 4 4 5 Сокол
Після роздумів щодо подальшого напряму розвитку сайту - як інтернет-каталог або блог, вирішили зробити прайс-лист товарів в форматі xls, який оновлюється по мірі надходження або продажу товарів, а на самому сайті будуть публікуватися статті на різні комп'ютерні (і не тільки) теми.
Щодо першої теми, то обрати було не складно, адже по роботі частенько доводиться стикатися з незнанням будови персонального комп'ютера (ПК) - системний блок називають процесором і т.п.
Для простоти наведено малюнок з основними деталями персонального комп'ютера.

Основними складовими стаціонарного персонального комп'ютера є системний блок, монітор, клавіатура і мишка, а також колонки (навушники).
Монітор і колонки - це пристрої виведення інформації, а клавіатура і мишка - це пристрої введення інформації. Ці пристрої ще називають периферійними. Основна задача периферійних пристроїв - введення інформації в комп'ютер (натискання клавіш на клавіатурі, рух курсору мишкою) і подальше виведення результатів у зрозумілому для людини вигляді (зображення на екрані, відтворення звуків на колонках).
#include <iostream>
using namespace std;
int main()
{
int n, m, n1;
int s=0;
int k=0;
cout << "n = ", cin >> n, cout << "\n";
cout << "m = ", cin >> m, cout << "\n";
n1 = n;
while (n1 > 0){
s += n1 % 10;
n1 = n1 / 10;
k++;
}
n1 = n;
for (int i=1; i<=k-m; i++) {
s -= n1 % 10;
n1 = n1 / 10;
}
cout << "s = " << s << "\n";
return 0;
}
Пример:
<span>n = 34568
m = 4
s = 18</span>