"Страны мира";
СТРАНА – символьный
СТОЛИЦА – символьный
ПЛОЩАДЬ – числовой
НАСЕЛЕНИЕ – числовой
ПОСЕЩАЛ – логический
"Мои одноклассники";
ФАМИЛИЯ – символьный
ИМЯ – символьный
АДРЕС – символьный
ТЕЛЕФОН – символьный
РОДИЛСЯ – дата
"Кинофильмы";
НАЗВАНИЕ – символьный
СТРАНА – символьный
ЖАНР – символьный
РЕЖИССЕР – символьный
ДУБЛИРОВАН – логический
"Телефонный справочник";
ФИО – символьный
АДРЕС – символьный
НОМЕР – числовой
"Мои посещения врача".
ДАТА – дата
ДИАГНОЗ – символьный
ЛЕЧЕНИЕ – символьный
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var n:=ReadInteger();
var a:array of integer;
a:=ReadArrInteger(n);
var p:=ReadInteger();
Sort(a);
var i:=n-1;
while a[i]>p do Dec(i);
Writeln(i+2);
end.
<u><em>Тестовое решение:</em></u>
5
175 169 172 180 174
174
4
Если без форм (<FORM>), то так:
<HTML>
<HEAD>
</HEAD>
<BODY>
<H1>Площадь трапеции</H1>
<SCRIPT>
var a = prompt('Укажите длину','');
var b = prompt('Укажите ширину','');
var h = prompt('Укажите высоту','');
alert ('Площадь трапеции будет равна '+(+a + +b)/2*h);
</SCRIPT>
</BODY>
</HTML>
Var
i: integer;
ar: array[1..8]of integer;
begin
for i := 1 to 8 do read(ar[i]);
for i := 1 to 8 do
if(i mod 2 = 0) then write(ar[i], ' ');
end.