Дан массив, заполненный случайными целыми числами в диапазоне от -30000 до 30000. Напишите подпрограмму, которая определяет минимальное значение среди двузначных положительных элементов массива. Размер массива заранее задан константой N. Используйте заголовок: function find(m: TMas): longint; Если в массиве нет ни одного элемента удовлетворяющего критериям - вернуть "-1". Тип ТMas задан как array[1..N] of integer и может использоваться для описания параметров подпрограмм
а) Ситуация: человек смотрит телевизор Источник: телевизор → Приёмщик: человек
b) Ситуация: пешеход переходит дорогу на зелёный свет светофора
Источник: светофор → Приёмщик: пешеход
c) Ситуация: ученик готовит доклад
Источник: книги, интернет, люди → Приёмщик: ученик
d) Ситуация: мама разговаривает со своей дочкой
Источник-приёмщик: мама → Приёмщик-источник: дочка
2)1. Звук барабана особенно популярен среди африканских племён. Он распространить сигнал о тревоге на несколько километров.
2. Для передачи сигнала на большие расстояния разные народы использовали дым костра.
3. Для передачи информации на дальние расстояния использовали гонцов.
4. С развитием письменности появилось такое средство дальней связи, как почта.
5. Радио является звуковым каналом передачи информации на большие расстояния. Это и общая развлекательная, и новостная информация.
6. Телефон является личным каналом информации. Используется людьми для общения.
7. Телевидение многоканальный канал информации. Происходит передача как звуковой, так и видеоинформации.
8. Спутники необходимы для передачи информации различного свойства на большие расстояния.
9. Сеть интернет «Всемирная паутина» является каналом связи для передачи различного вида информации.
{$APPTYPE CONSOLE}
uses SysUtils;
var i: integer; // счетчик
a: array[1..10] of Integer; // объявляем массив из 10 целых элементов
begin
// Вводим элементы массива с клавиатуры
for i:=1 to 10 do // цикл
begin
writeln('vvedite element massiva i nagmite >>ENTER');
write('a[',i,']=');
write(a[i]);
read(a[i])
end;
i:=1;
j:=0;// счетчик для поиска 3-го элемента
repeat
if a[i]<=0
then
inc(i) // переходим к следующему элементу
else
begin
inc(j); // отмечаем найденный положительный элемент
inc(i) // переходим к следующему элементу
end;
until (j=3) or (i=11); // До тех пор пока не найден 3-й положительный элемент
// либо не проверен весь массив
if j=3
then // есть как минимум три положительных элемента в массиве
writeln('3 Pologitelniy element a[',i-1,']=', a[i-1])
else // в массиве меньше трех положительных элементов
writeln('Net 3 pologitelnogo eltmenta = ');
readln;
readln
{ TODO -oUser -cConsole Main : Insert code here }
end.