Приёмник информации, имеющейся практически в каждом доме

Телевизор или компьютер

Приёмник информации телефон. ну или компьютер

Ну практически во всех операционных системах имеется одноименная команда ping. вводится эта команда в терминале, эмуляторе терминала, консоли, командной строке и т.п. пример: ping 192.168.1.24 (192.168.1.24): 56 data bytes 64 bytes from 192.168.1.24: icmp_seq=0 ttl=64 time=2.035 ms 64 bytes from 192.168.1.24: icmp_seq=1 ttl=64 time=0.581 ms 64 bytes from 192.168.1.24: icmp_seq=2 ttl=64 time=0.725 ms 64 bytes from 192.168.1.24: icmp_seq=3 ttl=64 time=0.561 ms у меня в сети нет хоста с адресом 192.168.104.1, поэтому продемонстрировал работу программы на имеющемся хосте.если хоста с таким адресом нет или он не отвечает, то получим такой вывод работы программы: ping 192.168.104.1 (192.168.104.1): 56 data bytesrequest timeout for icmp_seq 0request timeout for icmp_seq 1request timeout for icmp_seq 2request timeout for icmp_seq 3request timeout for icmp_seq 4

Вы массив объявили с именем  ar, а пытаетесь его использовать с именем а исправленный код выглядит так: var   ar: array[1..10]of integer;   a, c, i, n: integer; begin read(n);   for i : = 1 to n do   begin       read(ar[i]);       if i = 1 then           c : = ar[i];       if ar[i] > c then           c : = ar[i];   end;   writeln(c); end.   вариант №2 program max; const n = 10; var   ar: array[1..10]of integer;   a, c, i: integer; begin   for i : = 1 to n do   begin       read(ar[i]);       if i = 1 then           c : = ar[i];       if ar[i] > c then           c : = ar[i];   end;   writeln(c); end.