|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.06.2011, 16:41 | #1 |
Новичок
Джуниор
Регистрация: 19.06.2011
Сообщений: 2
|
перевести с++ в pascal
#include <iostream>
#include <ctime> #include <cmath> using std::cout; using std::cin; using std::endl; int main() { setlocale(LC_ALL,"Russian"); int size,db=1,count_min=0,count_max=0,m in,max; int i,j,temp,sum=0; srand((unsigned)time(NULL)); int *arr; cout<<"Введите розмер массива: "; cin>>size; arr = new int[size]; cout<<"Массив: "; for(i=0; i<size; i++) { arr[i]=rand()%99-10; cout<<arr[i]<<" "; if(arr[i]>0) { sum+=arr[i]; } } max = abs(arr[0]); min = abs(arr[0]); for(i=0; i<size; i++) { if (abs(arr[i])>max) { max = abs(arr[i]); count_max=i; } if (abs(arr[i])<min) { min = abs(arr[i]); count_min=i; } } cout<<endl; cout<<"Маkсимум "<<count_max+1<<" елемент"<<endl; cout<<"Минимум "<<count_min+1<<" елемент"<<endl; cout<<"Произведение: "; (count_max>count_min)? i=count_min+1 : i=count_max+1; (count_max>count_min)? j=count_max : j=count_min; for(i; i<j; i++) { db*=arr[i]; } cout<<db<<endl; cout<<"Новый массив: "; for(i=0; i<size; i++) { for(j=i; j<size; j++) { if(abs(arr[i])>abs(arr[j])) { temp=arr[i]; arr[i]=arr[j]; arr[j]=temp; } } } for(i=0; i<size; i++) { cout<<arr[i]<<" "; } cout<<endl; cout<<"Сумма положытельных елементов - "<<sum<<endl; delete [] arr; system("pause"); return 0; } |
19.06.2011, 17:41 | #2 |
Новичок
Джуниор
Регистрация: 19.06.2011
Сообщений: 2
|
тему можно закрывать, ответ получен
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевести код из Delphi в Pascal | Bianca | Помощь студентам | 4 | 05.06.2011 14:26 |
Перевести с Turbo C в Pascal | Andrey770 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 04.04.2011 20:39 |
перевести код с Pascal на C++ | panic_a | Помощь студентам | 2 | 22.12.2010 00:37 |
Перевести текст программы с Pascal на С ??? | $T@LKER | Помощь студентам | 4 | 14.09.2010 17:44 |
Перевести код с Pascal в C++ | gigaman | Общие вопросы C/C++ | 1 | 26.03.2008 12:18 |