кто может помочь с задачками по Паскалю?

[Defa4ka]

Нужно решить задачки.. оч надо!


2. Дано целое число N и набор из N целых чисел. Вывести в том же порядке все нечетные числа из данного набора, а также количество таких чисел.
3. Дано целое число N(>0). Найти число полученное путем перестановки цифр десятков и едениц.
4. Даны целые числа k,N, а также k наборов целых чисел по N элементов в каждом наборе. Найти количество наборов содержащих число 5.
5. Даны целые числа k,N, а также k наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести суму его положительных элементов, больших 7.
6. Дан массив из 15 целых чисел. Найти произведение его 2 максимальных элементов.
7. Упорядочить элементы массива из 9 целых чисел по убыванию.
8. Дан массив из N элементов. Заменить все нулевые элементы,стоящие на нечетных местах на их соседний элемент справа.

p.s. заранее: спасибо

[KORN]

эти задачи уже не однократно прорешивались на форуме, поискать не хотите? первая задача ваще для 5го класса... да и все они простые

[Defa4ka]

у меня связь не та,чтобы искать.. да и зарегестрировалась я только-только.. но все равно спасибо

[__STDC__]

Первая так например

const
	N = 5;
	
var
	i,counter:integer;
	x:array[1..N] of integer;
begin
	randomize;
	counter := 0;
	write('Numbers: ');
	for i:=1 to N do begin
		x[i] := random(100)+1;
		if (x[i] mod 2 <> 0) then begin
			inc(counter);
			write(x[i]:3);
		end;
	end;
	writeln;
	write('Counter: ',counter);
end.

[__STDC__]

задача номер два, со строками

var
	N:string;
	tmp:char;
	
begin
	writeln('Enter N: ');
	readln(N);
	tmp := N[length(N)-1];
	N[length(N)-1] := N[length(N)];
	N[length(N)] := tmp;
	writeln('N is: ',N);
	readln;
end.

или с числами:

var
	N:integer;
	
begin
	writeln('Enter N: ');
	readln(N);
	N := (N div 100)*100 + (N mod 10)*10 + (N mod 100 div 10);
	writeln(N);
	readln;
end.

[Defa4ka]

Спасибкии большое!!! ))

[__STDC__]

Программа номер три, смешной вариант

const
	k = 3;
	N = 10;

var
	x:array[1..k] of set of byte;
	i,j,m:integer;
	
begin
	randomize;
	for i:=1 to k do begin
		x[i] := [];
		for j:=1 to N do begin
			m := random(50);
			x[i] := x[i]+[m];
			write(m:4);
		end;
		writeln;
	end;

	j := 0;
	
	for i:=1 to k do
		if (5 in x[i]) then inc(j);
		
	writeln(j);
	readln;
end.

[__STDC__]

Задание номер следующее (нумерацию топик стартера не сохраняю):

const
	k = 3;
	N = 5;

var
	x:array[1..k] of set of byte;
	i,j,m,sum:integer;
	
begin
	randomize;
	for i:=1 to k do begin
		x[i] := [];
		sum := 0;
		for j:=1 to N do begin
			m := random(10);
			x[i] := x[i]+[m];
			write(m:4);
			if (m > 7) then sum := sum + m;
		end;
		write('Sum of elements: ':20,sum:4);
		writeln;
	end;

		
	writeln(j);
	readln;
end.

[__STDC__]

const
	N = 5;

var
	x:array[1..N] of integer;
	i,max1,max2,mul:integer;
	
begin
	randomize;
	max1 := 0; max2 := 0;
	for i:=1 to N do begin
		x[i] := random(10);
		if (x[i] > max1) then max1 := x[i];
		if (x[i] < max1) and (x[i] > max2) then max2 := x[i];
		write(x[i]:3);
	end;
	writeln;
	mul := max1*max2;
	writeln('Product: ',mul);
	readln;
end.

[__STDC__]

следующая.. никаких указаний по алгоритму нет.. ну скажем так..

const
	N = 9;

var
	x:array[1..N] of integer;
	i,j:integer;

procedure swap(var x1,x2:integer);
var
	tmp:integer;
begin
	tmp := x1;
	x1 := x2;
	x2 := tmp;
end;
	
begin
	randomize;
	for i:=1 to N do begin
		x[i] := random(100);
		write(x[i]:3);
	end;
	writeln;

	for i:=1 to N-1 do 
		for j:=1 to N-1 do
		if (x[j] < x[j+1]) then swap(x[j],x[j+1]);
	
	for i:=1 to N do
		write(x[i]:3);
		
	readln;
end.