Задачи в С++

[Ramix]

Здравствуйте всем. Учусь заочно на первом курсе, пришёл на сессию, а там С++... ни разу в нём не работал(до этого обучал только Paskal). Смог сейчас сделать только 1 задачу, а мне через 2 часа их показать уже надо.
Попытался сделать вторую, но он мне непонятные ошибки выдаёт... всё таки Delphi легче в освоении.
Заранее спасибо за помощь.

1. Пусть дано натуральное число n , состоящее из шести цифр. Определите число сотен и тысяч в нем.

#include <iostream,h>
main()
{long int n; int a,b;
cin >>n;
a=n/1000;
b=(n%1000)/100;
cout <<"tys=" <<a<<'\n';
cout <<"sot=" <<b;
return 0;
}

2. Пусть дано 15 чисел. Вычислите среднее арифметическое чисел, больших полусуммы первых двух.
3. Напишите программу, которая в заданных массивах A и B меняет местами максимальные элементы. Выведите на экран исходные и преобразованные массивы.
4. Напишите программу, которая в заданной матрице A подсчитывает и выводит на экран количество элементов, попадающих в заданный интервал [a,b] и значения этих элементов.
5. Напишите программу, которая считывает три вещественных числа и заменяет каждое отрицательное нулем, а нулевое – числом.

[Stilet]

2. Пусть дано 15 чисел. Вычислите среднее арифметическое чисел, больших полусуммы первых двух.

С потолка:

main(){
 int a[10];
 for(int i=0;i<10;i++) scanf("%d",&a[i]);
 int ps=(a[0]+a[1])/2,ar=0,n=1;
 for(int i=0;i<10;i++) if(a[i]>ps){ar+=a[i];n++;}
 printf("среднее арифметическое чисел, больших полусуммы первых двух. =%d",ar/n);
 return;
}

[k0tone]

Сообщение от Ramix

3. Напишите программу, которая в заданных массивах A и B меняет местами максимальные элементы. Выведите на экран исходные и преобразованные массивы.

#include <iostream.h>
#include <stdio.h>
#include <conio.h>

main()
{
      int a[10],b[10],i,j,k,l,maxA,maxB;

      clrscr();

      for(i=0;i<10;i++)
      { a[i]=2*i-5;
	b[i]=3*i-4; }

      for(i=0;i<10;i++)
	printf("%4d",a[i]);

      printf("\n");

      for(i=0;i<10;i++)
	printf("%4d",b[i]);

      maxA=a[0];
      for(i=0;i<10;i++)
	if(maxA<a[i])
	{ maxA=a[i]; k=i; } else k=0;
	  printf("\n maxA=%d",maxA);

      maxB=b[0];
      for(i=0;i<10;i++)
	if(maxB<b[i])
	{ maxB=b[i]; l=i; } else l=0;
	  printf("\n maxB=%d\n",maxB);

      j=a[k];
      a[k]=b[l];
      b[l]=j;

      for(i=0;i<10;i++)
	printf("%4d",a[i]);

      printf("\n");

      for(i=0;i<10;i++)
	printf("%4d",b[i]);

      getch();

}

[k0tone]

Сообщение от Ramix

4. Напишите программу, которая в заданной матрице A подсчитывает и выводит на экран количество элементов, попадающих в заданный интервал [a,b] и значения этих элементов.

#include <iostream.h>
#include <stdio.h>
#include <conio.h>

main()
{
      clrscr();

      int c[5][5],a,b,i,j,k=0;
      
      printf("Vvedite a=");
      scanf("%d",&a);
      printf("Vvedite b=");
      scanf("%d",&b);
            
      for(i=0;i<5;i++)
      {
        for(j=0;j<5;j++)
        { 
          c[i][j]=i-j;
          printf("%5d",c[i][j]); 
        }
        printf("\n"); 
      }
      
      for(i=0;i<5;i++)
      for(j=0;j<5;j++)
      {
	if(c[i][j]>=a)
	if(c[i][j]<=b)
	k=k+1;
      }
      printf("kol-vo=%d",k);

      for(i=0;i<5;i++)
      for(j=0;j<5;j++)
      {
	if(c[i][j]>=a)
	if(c[i][j]<=b)
	printf("\nA[%d][%d]=%d",i,j,c[i][j]);
      }

      getch();
}

[димон4ик_]

Даны три вещественных числа. Если из них можно составить возрастающую арифметическую прогрессию, то вывести эту прогрессию.
Помогите решить срочно нужно написать на паскале

[Mexanoid]

РЕБЯТА!!! памогите плз решить эту задачу-------->Два незнаковых числа вводятся с клавиатуры в восьмеричной системе исчесления.Разделить первое на второе, а затем частное здвинуть на один вправо.Вывести результат в шестнадцатиричной сичтеме исчесления.

[gamer-25]

Сообщение от димон4ик_

Даны три вещественных числа. Если из них можно составить возрастающую арифметическую прогрессию, то вывести эту прогрессию.
Помогите решить срочно нужно написать на паскале

var
   number1, number2, number3: real;
   min, sred, max: real;
begin
  max:= number1;
  if number2 > max then max:= number2;
  if number3 > max then max:= number3;

  min:= number1;
  if number2 < min then min:= number2;
  if number3 < min then min:= number3;

  if (number1 > min) and (number1 < max) then sred:= number1;
  if (number2 > min) and (number2 < max) then sred:= number2;
  if (number3 > min) and (number3 < max) then sred:= number3;

  if (max - min = sred) then
    ShowMessage(FloatToStr(min) + ' ' + FloatToStr(sred) + ' ' + FloatToStr(max));
end;

[Mexanoid]

РЕБЯТА!!! памогите плз решить эту задачу-------->Два незнаковых числа вводятся с клавиатуры в восьмеричной системе исчесления.Разделить первое на второе, а затем частное здвинуть на один вправо.Вывести результат в шестнадцатиричной сичтеме исчесления.

[димон4ик_]

Сообщение от gamer-25

var
   number1, number2, number3: real;
   min, sred, max: real;
begin
  max:= number1;
  if number2 > max then max:= number2;
  if number3 > max then max:= number3;

  min:= number1;
  if number2 < min then min:= number2;
  if number3 < min then min:= number3;

  if (number1 > min) and (number1 < max) then sred:= number1;
  if (number2 > min) and (number2 < max) then sred:= number2;
  if (number3 > min) and (number3 < max) then sred:= number3;

  if (max - min = sred) then
    ShowMessage(FloatToStr(min) + ' ' + FloatToStr(sred) + ' ' + FloatToStr(max));
end;

А ты умеешь составлять блок схемы если да то помоги пожалуста составить к этому заданию блок схему с помощью разветвляющихся алгоритмов

[Вадим Мошев]

Блок схемы могут составлять программой, взятой с сайта www.fceditor.com