Диалоговые окна и окна папок
Локальная сеть - это компьютерная сеть, покрывающая обычно относительно небольшую территорию или небольшую группу зданий (дом, офис, фирму, институт)
Можно заменить на
read(x1,y2,x3,x4);
Информатика && язык & запрос && Я н д е к с
Запрос Я н д е к с у на поиск по условию:
На странице должно быть слова "информатика", "Я н д е к с" и предложение, в котором одновременно присутствуют слова "язык" и "запрос"
Примечание: Я н д е к с надо писать слитно, местная система не любит этого имени и не позволяет его записать в обычном виде.
{все строки с фигурными скобками можно удалить, это комментарии, которые на программу не влияют}
var
a: array[1..10]of real;
i,k:integer;t:real;
begin
writeln('Введите t');
{На экране появится текст "Введите t"}
readln(t);
{В этот момент появится курсор и можно будет ввести значение t}
writeln('Введите массив');
for i:=1 to 10 do
begin
readln(a[i]); {вводим элементы массива с клавиатуры}
if a[i]<t then {если элемент массива <t}
k:=k+1; {то считаем количество таких элементов}
end;
writeln;
writeln('количество: ',k);
end.