2 блок

1=================================================================
program one;
const Sz = 50; //Максимальный размер массива
var m: array[1..Sz] of integer;
n:integer;
i:integer;
f:integer;
begin
{1. Дано n чисел. Вычислить произведение чисел, модуль которых находится в пределах от 10 до 100.}
f:=1;
write('Введите количество чисел: ');
read(n);// Размер массива
for i:=1 to n do
begin
write('m[',i,']=');
read(m[i]);
end;
writeln('Элементы массива:');
for i:=1 to n do
write(m[i],' ');//Все элементы массива

writeln;
for i:=1 to n do
begin
if m[i]>10 then
if m[i]<100 then
write(m[i], ' ');//Вывод чисел в интервале с 10 до 100
end;
writeln;
for i:=1 to n do
begin
if m[i]>10 then
if m[i]<100 then
f:=f*m[i];
end;
writeln;
write('Из ',n,' произведение чисел модуль которых находится в пределах от 10 до 100: ',f);//Ответ
{
//Модуль числа:
writeln('Введите число: ');
read(x);
y:=abs(x);
writeln('Модуль числа равен: 3',y);
}
end.
2=================================================================
program two;
const Sz = 50; //Максимальный размер массива
var a: array[1..Sz] of integer;
var h: array[1..Sz] of integer;
var i,n,x,g,s:integer;
begin
{2. Дано n чисел. Вычислить количество четных чисел, заканчивающихся цифрой 4 или 8.}

i:=0;
x:=0;
g:=0;
write('Введите количество чисел: ');
read(n);// Размер массива
for i:=1 to n do
begin
write('a[',i,']=');
read(a[i]);
end;

for i:=1 to n do
begin
write(a[i], ' ')
end;
writeln;
write('Числа заканчивающиеся на 4: ');
for i:=1 to n do
begin
if a[i] mod 10 =4 then
write(a[i],' ');
end;
for i:=1 to n do
begin
if a[i] mod 10 =4 then
g:=g+1;
end;
writeln;
writeln('Количество четных чисел заканчивающиеся на 4: ',g);
writeln;
write('Числа заканчивающиеся на 8: ');
for i:=1 to n do
begin
if a[i] mod 10 =8 then
write(a[i],' ');
end;
for i:=1 to n do
begin
if a[i] mod 10 =8 then
x:=x+1;
end;
writeln;
writeln('Количество четных чисел заканчивающиеся на 8: ',x);
s:=x+g;
writeln('Сумма чисел, которые заканчиваются на 4 или 8: ', s);
end.
3=================================================================
program three;
const Sz = 50; //Максимальный размер массива
var a: array[1..Sz] of integer;
var i,n,x:integer;
begin
{3. Дано n чисел. Вычислить сумму модулей тех из них, что делятся на 10.}
i:=0;
x:=0;
write('Введите количество чисел: ');
read(n);// Размер массива
for i:=1 to n do
begin
write('a[',i,']=');
read(a[i]);
end;
write('Числа, которые делятся на 10: ');
for i:=1 to n do
begin
if a[i] mod 10=0 then
write(a[i],' ');
end;
writeln;
for i:=1 to n do
begin
if a[i] mod 10=0 then
x:=x+a[i];
end;
writeln('Сумма модуля чисел: ',x);
writeln;
write('Все числа в массиве: ');
for i:=1 to n do
write(a[i] ,' ');
end.
4=================================================================
program four;
var d,i,s,summ:integer;
sred:real;
begin
{4. Найти среднее расстояние, проходимое пассажирским поездом за день, если в пути он был d дней и каждый день он проходил разное количество километров s.}

writeln('Введите количество дней');
readln(d);
summ:=0;
for i:=1 to d do
begin
writeln('Введите путь, пройденный за ',d,' день');
readln(s);
summ:=summ+s;
end;
sred:=summ/d;
writeln('В среднем поезд проходил ',sred:5:2,' километров в день');

end.
5=================================================================
program five;
var n,s,i:integer;
begin
{Найти среднюю заработную плату за последнее n месяцев, если в каждой из них работник получал по z рублей.}
writeln('Введите зарплату за каждый месяц: ');
for i:=1 to 12 do
begin
write(i,' месяц ');
readln(n);
s:=s+n;
end;
writeln('Средняя зарплата за год = ', s/12:2:2);
end.