Помогите решить задачи

[Scerob]

Помогите решить задачи

1) Вывести на экран первые N чётных чисел кратные трём. Число N вводиться пользователем с клавиатуры.(это лёгкое но где то ошибаюсь).

2) Создайте программу выполняющую обработку массивов.
На основе исходных массивов A и B с рабочим размером n сформировать массив C, элементы которого вычисляются по формуле: С=A*B. Упорядочить массив С по возрастаю, используя метод выбора. Вывести элементы массива C на экран. Массивы A, B и С являются целочисленными.
Значение n и значения элементов массива A и B вводятся с клавиатуры. При этом значение элементов внутри массива А не должны повторяться.

Заранее спасибо всем кто поможет с этой задачей.

 

[DDS]

Вот первая задачка.

var n,i,k:integer;
begin
  readln(n);
  i:=2;
  k:=0;
  repeat
    if (i mod 3)=0 then begin
      writeln(i);
      k:=k+1;
    end;
    i:=i+2;
  until k>=n;
  readln;
end.

 

[DDS]

А вот 2 задача.

var a,b,c:array[1..100] of integer;
    t,i,j,m,n:integer;
    u:boolean;
begin
  readln(n);
  writeln('array a');
  repeat
    u:=true;
    for i:=1 to n do
      read(a[i]);

    for i:=1 to n-1 do
       for j:=i+1 to n do
         if a[i]=a[j] then begin
           u:=false;
           writeln('error in array a, re enter array a');
         end;
  until u;
  writeln('array b');
  for i:=1 to n do
    read(b[i]);
  for i:=1 to n do
    c[i]:=a[i]*b[i];
  writeln('array c');
  for i:=1 to n do
    write(c[i],'  ');
  writeln;
  for i:=1 to n-1 do
    begin
      m:=i;
      t:=c[i];
      for j:=i+1 to n do
        if t>c[j] then begin
           m:=j;
           t:=c[j];
        end;
        c[m]:=c[i];
        c[i]:=t;
    end;
  writeln('array c');
  for i:=1 to n do
    write(c[i],'  ');
  readln;
end.

 

[Scerob]

Сор мне в с++

 

[DDS]

Ой, извини. Это я очень не внимателен, был уверен, что необходимо на Паскале.
Могу попробывать переделать в С++, но это займёт некоторое время.

 

[Scerob]

нечего спс за затраченное время буду рад если поможеш

 

[DDS]

Вот 1 задача на С++

#include<iostream.h>
int main()
{
  int n,i,k;
  cin >> n;
  i=2;
  k=0;
  while (k<=n) {
	if (i%3==0) {
	  cout << i ;
	  cout << "\n" ;
	  k=k+1;
	}
	i=i+2;
  }
  return 0;
}

 

[DDS]

Вот 2 задача на С++

#include<iostream.h>
int main()
{

	int a[100],b[100],c[100];
	int t,i,j,m,n;
	bool u;
  cin >> n;
  cout << "array a \n";
  u=true;
  while (u)
  {
	u=false;
	for (i=1;i<=n;i++)
	  cin >> a[i];

	for (i=1;i<=n-1;i++)
	   for (j=i+1;j<=n;j++)
		 if (a[i]==a[j])
		   {
		   u=true;
		   cout << "error in array a, re enter array a \n";
		   }
  }

  cout << "array b \n";
	for (i=1;i<=n;i++)
	  cin >> b[i];
	for (i=1;i<=n;i++)
	  c[i]=a[i]*b[i];
  cout << "array c \n";

  for(i=1;i<=n;i++) {
	cout << c[i] << "  ";
	}
	cout << "\n";
  for (i=1;i<=n-1;i++)
	  {
	  m=i;
	  t=c[i];
	  for (j=i+1;j<=n;j++)
		{
		if (t>c[j])
		   {
		   m=j;
		   t=c[j];
		   }
		c[m]=c[i];
		c[i]=t;
		}
	  }
  cout << "array c \n";
  for(i=1;i<=n;i++) {
	cout << c[i] << "  ";
	 }
	return 0;
}

 

[Scerob]

спасибо тебе всё работает