Ошибка program1.pas(5) : нельзя преобразовать тип real к integer. можете объяснить почему? program chasiki; var n, z, x, y, v, b : real; begin read (n); z: =n div 3600; x: =n mod 3600; y: =x div 60; v: =y mod 60; b: =v mod 60; writeln (z, x, b); end.

z:=N div 3600; - операция div применима только к целочисленным типам, а у Вас объявлено var N ... :real;

Дело в том, что div и mod - относятся к операциям на ЦЕЛЫМИ числами, Вы же пытаетесь их использовать с вещественными.
Div - Целая часть от деления, а Mod - остаток
Для типа Real следует использовать "/"

Pascal:
const n = 10;
var a:array [1..n] of integer;
     i,max,c:integer;
begin
 clrscr;
 readln (a[1]);
 max:=a[1];
 c:=1;
 for i:=2 to n do
  begin
   readln (a[i]);
   if a[i]>max then
    begin
     max:=a[i];
     c:=1;
    end
    else if a[i]=max then inc(c);
  end;
 writeln ('Kol-vo: ',c);
end.

C++:
#include <iostream>
using namespace std;

int main()
{
  int a[10];
  int c = 0,max;
  cin >>a[0];
  max = a[0];
  for (int i = 1; i<10; i++)
  {
    cin >>a[i];
    if (a[i]>max)
    {
      max = a[i];
      c = 1;
    }
    else if (a[i]==max)
             ++c;
  }
  cout <<"KOL_VO: " <<c <<endl;
  return 0;
}

Объяснение:

1) Виды локальных сетей?

Локальные сети бывают одноранговыми и с выделенным сервером.

2)Специальная плата компьютера для передачи и приёма сигналов,

распространяемых по каналам связи - это...

сетевой адаптер

3)Если два компьютера связаны между собой через Wi-Fi соединение, то можно назвать это компьютерной сетью?

Да

4)Скорость передачи данных по каналу связи равна 512 бит в секунду. Сколько  

секунд будет передаваться через это соединение файл размером 10

Килобайт?

160 секунд

5)Как называется организация, предоставляющая пользователям связь с

глобальной сетью?

Провайдер