ЗАДАНИЕ№2
Во и задания
Запишите на языке Паскаль программу решения
задачи.
В некотором населённом пункте N домов. Известно,
СКОЛЬКО людей проживает в каждом из домов.
Исходные данные (количество Жильцов) представить
с линейной таблицы А, содержащей N
элементов: A[1] - Количество Жильцов дома 1, A[2] -
Количество Жильцов дома 2, ..., A[N - Количество
Жильцов дома N.
В общем случае A[i] — Количество жильцов дома і,
где і принимает все значения от 1 до п (i =1,n).
Результат работы обозначить через S.
Считайте количество жильцов дома случайным
числом из диапазона от 50 до 200 человек, а число
домов п = 30.​

Мультиме́діа (лат. Multum + Medium) — комбінування різних форм представлення інформації на одному носієві, наприклад текстової, звукової і графічної, або, останнім часом все частіше — анімації і відео. Характерна особливість мультимедійних об'єктів та продуктів — наявність гіперпосилання. Поняття, що означає сполучення звукових, відео, графічних, текстових і цифрових сигналів, а також нерухомих і рухомих образів і конструкцій. Так, мультимедійна база даних буде вміщувати текстову і образну інформацію, відеокліпи і таблиці, і все це має однаково легкий доступ. Мультимедійна послуга дозволяє користувачеві посилати, одержувати і використовувати будь-яку форму інформації, взаємозамінну і взаємодоповнюючі за бажанням.

Задача №1

var a:array[1..3, 1..4] of integer; 
i,j,min:integer; 
begin 
for i:=1 to 3 do 
for j:=1 to 4 do begin 
read(a[i,j]); 
if a[i,j]<0 then min:=a[i,j]; 
end; 
for i:=1 to 3 do 
for j:=1 to 4 do 
if (a[i,j]<0) and (a[i,j]<min) then min:=a[i,j]; 
writeln('Минимальное отрицательное число ',min); 
end.

Задача №2
var a:array[1..2, 1..5] of integer; 
i,j:integer; 
begin 
for i:=1 to 2 do 
for j:=1 to 5 do read(a[i,j]); 
for i:=1 to 2 do begin 
for j:=1 to 5 do 
write(a[i,j],' '); 
writeln; 
end; 
end. 

Задача №3
var a:array[1..3, 1..4] of integer; 
i,j:integer; 
begin 
for i:=1 to 3 do 
for j:=1 to 4 do read(a[i,j]); 
for i:=1 to 3 do 
for j:=1 to 4 do 
if a[i,j]=10 then writeln('Номер столбца — ',j,' Номер строки — ',i); 
end.