1 / 1 / 1
Регистрация: 17.07.2012
Сообщений: 139
1

Определить максимальный и минимальный элемент массива, найти разность этих элементов (Pascal -> C++)

09.05.2013, 11:50. Показов 883. Ответов 4
Метки нет (Все метки)

помогите перевести следующий текст с pascal на c++

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
var mas: array [1..100] of integer;
    i,a,b,min,max,r:integer;
begin
clrscr;
randomize;
for i:= 1 to 10 do begin
    mas[i]:= random(10)+1;
    write (mas[i]:2);
    end;
max:=mas[1];
For i:=1 to 10 do begin
If  mas[i]>max then
   max:=mas[i];
 
 
 
 
end; writeln;   writeln;
 write ('Max = ',max:5);
min:=mas[1];
For i:= 1 to 10 do begin
If mas[i] < min then
   min:=mas[i];
   end;
   writeln;
   writeln;
   write('Min = ',min:5);
a:=max-min;  writeln;writeln;
writeln('Raznost = ',a);
end.
Добавлено через 13 часов 5 минут
чё никто не может что ли????
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.05.2013, 11:50
Ответы с готовыми решениями:

Найти максимальный и минимальный элементы массива и позиции этих элементов.
несколько задач... 1 задан одномерный массив из 10 целых элементов заданного случайным образом в...

Найти минимальный элемент из элем массива с нечетными номерами и максимальный элемент элементов с четными
4) Одномерный массив, состоящий из n элементов, заполняется введенными с клавиатуры целыми числами....

Найти сумму элементов массива, максимальный и минимальный элемент массива
Дан массив из N элементов на отрезке из найти сумму элементов массива , максимальный и минимальный...

Вычислить сумму элементов на четных местах. Определить минимальный и максимальный элемент массива
Помогите пожалуйста написать две программы для Turbo Pascal.Заранее благодарю за помощь. Задание...

4
44 / 41 / 35
Регистрация: 27.02.2013
Сообщений: 284
10.05.2013, 00:15 2
А можно уточнить условие задачи
0
1 / 1 / 1
Регистрация: 17.07.2012
Сообщений: 139
12.05.2013, 16:50  [ТС] 3
Цитата Сообщение от Lar4ik Посмотреть сообщение
А можно уточнить условие задачи
Дан одномерный массив определить максимальный и минимальный элемент массива, потом найти разность этих элементов
0
1 / 1 / 1
Регистрация: 17.07.2012
Сообщений: 139
14.05.2013, 18:35  [ТС] 4
ну чё никто не может что ли???
0
Ranos
14.05.2013, 22:07 5
А ну.. Я может начинающий, но в состоянии это перевести в код с++.
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#include <windows.h>
#include <iostream>
using namespace std;
 
int main()
{
    int i,min,max,arr[100];
    system("cls");
    for(i=0;i<100;i++)
    {
        arr[i]=rand()%10+1;
        cout<<arr[i]<<endl;
    }
    max=arr[0];
    min=arr[0];
    for(i=1;i<100;i++)
    {
        if(arr[i]>max) max=arr[i];
        if(arr[i]<min) min=arr[i];
    }
    cout<<endl<<endl<<"max = "<<max;
    cout<<endl<<endl<<"min = "<<min;
    cout<<endl<<endl<<"Razn = "<<max-min;   
    cin.get();                              
    return 0;
}
Код я компилировал. Работает. Если что не понятно - спрашивай, объясню, что смогу)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.05.2013, 22:07
Помогаю со студенческими работами здесь

Найти минимальный и максимальный элемент массива.Найти сумму всех элементов массива
Проверьте пожалуйста программу. Program lb4; var i,j,k,l,m,n,v:integer; mass:array of real;...

Найти минимальный, максимальный элемент массива и сумму его элементов
напишите код программ

Найти минимальный и максимальный элементы массива и заменить первый элемент массива суммой минимального и максимального элементов
Доброго времени суток.. Случилось так, что требуется решить 2 задачи в ВБА на массивы, которые я...

Найти сумму элементов массива. Поменять местами максимальный и минимальный элемент.
помогите с программой. пользователь вводит 2 натуральных числа , составить массив из простых...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru