3. Пользователь вводит число N. Затем вводит еще N чисел добавьте каждое из этих чисел в список. Преобразуйте
каждое из этих чисел в целое число. Найдите
максимальный элемент списка.

Служби Інтернету

За своєю архітектурою Інтернет — це клієнт-серверна мережа, тобто в ній є сервери, що підтримують роботу певних служб, і клієнти, які користуються цими службами. Найвідомішими та найпоширенішими службами Інтернету вважаються Всесвітня павутина й електронна пошта.

Інтернет також є платформою, на основі якої будуються файлообмінні мережі й електронні платіжні системи, розвиваютьсяінтернет-телебачення та інтернет-телефонія.

Кожна служба Інтернету має власні протоколи, що застосовуються для взаємодії між користувачем (клієнтською прикладною програмою) та службою.

Служба Інтернету — це набір послуг, які надаються клієнтам програмним забезпеченням серверів Інтернету з використанням певних мережних протоколів.

Зараз ви ознайомитесь з основними службами Інтернету та дізнаєтесь, які можливості вони надають користувачам.

До служб Інтернету відносяться:

Веб Веб-форуми Блоги Вікі-проекти (в тому числі й Вікіпедія) Інтернет-магазини Інтернет-аукціони Електронна пошта та списки розсилки Групи новин (в основному, Usenet) Файлообмінні мережі Електронні платіжні системи Інтернет-радіо Інтернет-телебачення IP-телефонія Системи обміну повідомленнями FTP-сервери IRC  

 

Замечание. Так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием True, но как только будет введено число 0, остановим цикл командой break.

Программа:

program z;
var k,s,x:integer;
begin
k:=0;              {начальное значение количества двузначных чисел}
s:=0;              {начальное значение суммы двузначных чисел}
while True do  {открываем бесконечный цикл}
begin
readln(x);        {вводим число х}
if x=0 then break;  {если введенное число равно 0, то остановить цикл}
if (x>9)and(x<100) then  {если число двузначное, т.е. от 10 до 99} 
    begin 
    k:=k+1;         {количество увеличиваем на 1}
    s:=s+x;         {увеличиваем предыдущее значение суммы на число х}
    end;
end;
if k=0 then writeln('NO')  {если двузначных чисел не было, то вывод NO}
   else writeln(s/k);          {иначе вывод ср.арифметического}
end.