Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > C/C++ Базы данных
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Результаты опроса: помогите пожалуйста переводить на паскал. Требет менять местами 2-ую и 3-ую степень местами в новом
перевод на паскал 1 100.00%
перевод на паскал 1 100.00%
Опрос с выбором нескольких вариантов ответа. Голосовавшие: 1. Вы ещё не голосовали в этом опросе

Ответ
 
Опции темы Поиск в этой теме
Старый 25.11.2015, 18:49   #1
Nerses97
Новичок
Джуниор
 
Регистрация: 25.11.2015
Сообщений: 1
По умолчанию помогите пожалуйста переводить на паскал. Требет менять местами 2-ую и 3-ую степень местами в новом векторе

#include <iostream>
#include "math*h"
void main (){
int i,n,x[50],y[50],j,k2,k3,kj
cin>>n;
for(i=0;i<n;i++)
cin>>x[i];
for(i=0,i<n;i++){
k=x[i]/2;
for(j=0;j>-1;j++){
if(k==2){
k2=i; j=-1; i=n; }
else{
if(x[i]/2<2)
break;
else k/2;}}
for(i=0;i<n;i++){
k=x[i]/3;
for(j=0,j<-1;j++){
if(k==3){
k3=i; j=-1; i=n;}
else{
if(x[i]/3<3)
break;
else k(3;}}
int a,b;
a=x[k2];
b=x[k3];
x[k3]=a;
x[k2]=b;
for(i=0;i<n;i++){
y[i]=x[i];
}cout <<y[i]<<ende;
Nerses97 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
переделать прогу на Ассемблере: в массиве чисел (размер - слово) попарно менять местами числа Алина27 Помощь студентам 1 18.12.2013 16:10
Менять местами выделенные ячейки Whitered Microsoft Office Excel 4 11.08.2010 14:59
менять местами между столбцами и строками Aqil_f Microsoft Office Excel 6 23.05.2009 10:22
Менять 2 Label местами по нажатию кнопки? PsyEgik Помощь студентам 6 29.03.2009 16:37
КАК менять элементы матрицы местами? RomT24 Паскаль, Turbo Pascal, PascalABC.NET 3 10.01.2009 21:34