1блок

1=============================================================
program one;
var a:array [1..6] of integer; {Массив из 6 элементов}
i,j,n,m:integer;
s:real;
begin
{1. Дано 6 целых чисел. Подсчитать сумму тех чисел, которые кратны 3 и кратны 6.}

n:=0;
m:=0;
s:=0;

writeln('Заполните массив: ');
for i:=1 to 6 do
begin
write('a[',i,']=');
read(a[i]);
end;
writeln;
writeln('ваш массив 6-тью элементами: ');
for i:=1 to n do
write(a[i],' ');

for i:=1 to 6 do
write(a[i], ' ');
writeln;

//считаем сумму чисел
for j:=1 to 6 do
s:=s+a[j];
writeln('summa=',s);

//Количество чисел кратных 3-м
for i:=1 to 6 do begin
if a[i] mod 3 =0 then n:=n+1;
end;
writeln('Количество чисел кратные 3: ', n);

//Количество чисел кратных 3-м
for i:=1 to 6 do begin
if a[i] mod 6 =0 then m:=m+1;
end;
writeln('Количество чисел кратные 6: ', m);

end.
2=============================================================
program two;
var a,h,f:array [1..8] of integer; {Массив из 8 элементов}
i,j,n,m,u,k,g:integer;
s:real;
begin
{2. Дано 8 целых чисел. Подсчитать сумму квадратов тех чисел, которые кратны 5 или кратны 10.}
n:=0;
m:=0;
s:=0;
k:=0;

writeln('Заполните массив: ');
for i:=1 to 8 do
begin
write('a[',i,']=');
read(a[i]);
end;
writeln;
writeln('ваш массив 8-тью элементами: ');
for i:=1 to 8 do
write(a[i],' ');
writeln;
//считаем сумму чисел
for j:=1 to 8 do
s:=s+a[j];
writeln('summa=',s);

//Количество чисел кратных 5-ти
for i:=1 to 8 do begin
if a[i] mod 5 =0 then n:=n+1;
end;
writeln('Количество чисел кратные 5: ', n);

//Количество чисел кратных 10-ти
for i:=1 to 8 do begin
if a[i] mod 10 =0 then m:=m+1;
end;
writeln('Количество чисел кратные 10: ', m);

for i:=1 to 8 do
h[i]:= 0;

{
Сумма квадратов чисел от 1 до 10.
s:=0;
for i:=1 to 10 do
s:=s+sqr(i);
writeln(s);
}


//Вывод кратных чисел
write('Кратные числа 5: ');
for i:=1 to 8 do
begin
if (a[i] mod 5 =0) then
write(a[i], ' ');
f[i]:=a[i];//заносим массив a[] в массив h[]
end;

writeln;

for i:=1 to 8 do
begin
if (f[i] mod 5 =0) then
g:=g+sqr(f[i]);
end;
write('Сумма квадратов чисел кратных 5: '+g);


writeln;

write('Кратные числа 10: ');
for i:=1 to 8 do
begin
if (a[i] mod 10 =0) then
write(a[i], ' ');
h[i]:=a[i];//заносим массив a[] в массив h[]
end;

writeln;

for i:=1 to 8 do
begin
if (h[i] mod 10 =0) then
k:=k+sqr(h[i]);
end;
write('Сумма квадратов чисел кратных 10: '+k);
writeln;
u:=k+g;
write('Сумма квадратов чисел кратных 10 и 5: '+u);

end.
3=============================================================
program three;
var a:array [1..5] of integer; {Массив из 5 элементов}
var h:array [1..5] of integer; {Массив из 5 элементов}
var i,x,b:integer;
begin
{3. Дано 5 целых чисел. Подсчитать произведение тех чисел, которые заканчиваются на цифру 2.}
i:=0;
x:=1;

writeln('Заполните массив: ');
for i:=1 to 5 do
begin
write('a[',i,']=');
read(a[i]);
end;
writeln;
writeln('ваш массив 5-тью элементами: ');
for i:=1 to 5 do
write(a[i],' ');

writeln;
write('Числа заканчивающиеся на 2: ');
for i:=1 to 5 do
begin
if a[i] mod 10 =2 then
write(a[i], ' ');
h[i]:=a[i];
end;

writeln;

for i:=1 to 5 do
begin
if h[i] mod 10 =2 then
x:=x*h[i];
end;
write('Произведение: ',x);

end.

4=============================================================
program four;
var d,g,a,b,c,ans:integer;
begin
{4. Найти количество неотрицательных чисел из 5 введенных.}
writeln('Введите 5 чисел:');
readln(g,d,a,b,c);
ans:=0;
if(a>0) then inc(ans);
if(b>0) then inc(ans);
if(c>0) then inc(ans);
if(g>0) then inc(ans);
if(d>0) then inc(ans);
writeln('Количество положительных чисел: ',ans);
end.
5=============================================================
program five;
var d,g,a,b,c,f,ans,anf,gg:integer;
begin
{5. Найти разницу между количеством положительных четных чисел и количеством отрицательных нечетных чисел из 6 введенных.}

//Положительные числа
writeln('Введите 6 чисел:');
readln(g,d,a,b,c,f);
ans:=0;
anf:=0;
//1
if(g>0) then begin
if g mod 2 =0 then
inc(ans);
end
else
begin
if odd(g) {mod 2 =0} then
inc(anf);
end;
//writeln('Количество положительных чисел: ',ans);
//2
if(d>0) then begin
if d mod 2 =0 then
inc(ans);
end
else
begin
if odd(d) {mod 2 =0} then
inc(anf);
end;
//writeln('Количество положительных чисел: ',ans);
//3
if(a>0) then begin
if a mod 2 =0 then
inc(ans);
end
else
begin
if odd(a) {mod 2 =0} then
inc(anf);
end;
//writeln('Количество положительных чисел: ',ans);
//4
if(b>0) then begin
if b mod 2 =0 then
inc(ans);
end
else
begin
if odd(b) {mod 2 =0} then
inc(anf);
end;
//writeln('Количество положительных чисел: ',ans);
//5
if(c>0) then begin
if c mod 2 =0 then
inc(ans);
end
else
begin
if odd(c) {div 2 =0} then
inc(anf);
end;
//writeln('Количество положительных чисел: ',ans);
//6
if(f>0) then begin
if f mod 2 =0 then
inc(ans);
end
else
begin
if odd(f) {div 2 =0} then
inc(anf);
end;
gg:=ans+anf;
writeln('Количество положительных четных и отрицательных нечетных чисел: ',gg);

if (ans>anf) then begin
writeln('Положительных четных чисел больше: ', ans);
writeln('Отрицательных нечетных чисел меньше: ', anf);
end
else
begin
writeln('Отрицательных нечетных чисел больше: ', anf);
write('Положительных четных чисел меньше: ', ans);
end;

end.