Вкаком году в америке изобрели телефон?

Вамерике изобрели телефон в  1876 году.

Телефон, запатентованный в сша 1876 году, александром беллом, назывался «говорящий телеграф». трубка белла служила по очереди и для передачи, и для приёма человеческой речи. в телефоне а. белла не было звонка, позже он был изобретён коллегой а. белла — т. ватсоном 1878 год. вызов абонента производился через трубку при свистка. дальность действия этой линии не превышала 500 метров. александр белл подал заявку в вашингтонское патентное бюро на свое изобретение 14 февраля 1876 года. двумя часами позже заявку на «устройство для передачи и приема вокальных звуков телеграфным способом» подал э. грей из чикаго. 7 марта 1876 года александром беллом был получен патент на изобретение телефона. любопытно, что а. белл пытался изобрести не телефон, а «гармонический телеграф». в то время в телеграфии испытывался огромный дефицит линий. 25 июня 1876 года. александр белл впервые продемонстрировал свой телефон на первой всемирной электротехнической выставке в филадельфии.

Var a,b,c: integer; n: array [1..10] of integer; begin writeln('введите номера элементов для сравнения'); readln(a,b); randomize; {скажите что посмотрели эту функцию в интернете и она нужна для подготовки программы к применению функции рандом} for c: =1 to 10 do begin n[c]: =random(-20,20); {так мы в массив ставим случайное число в диапазоне от -20 до 20} writeln(n[c]); end; if n[a]< n[b] then writeln('меньший элемент массива под номером ' ,a,' больший элемент массива под номером ' ,b) else writeln('меньший элемент массива под номером ' ,b,' больший элемент массива под номером ' ,a); end.

Огородники ивановы засаживают свой огород только по клумбам главной диагонали.  сам огород представляет собой квадрат со стороной в 5 клумб. найдите сколько   арбузов вырастет на главной диагонали(число арбузов на каждой клумбе задаётся случайно). var ar: array[1..5,1..5] of integer; a,s: integer; begin randomize; writeln('арбузы погрядочно: '); for a: =1 to 5 do begin; ar[a,a]: =random(30); write(ar[a,a],','); s: =s+ar[a,a]; end; writeln; writeln('количество арбузов: ',s); end.