Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
ravenkovka
1 / 1 / 0
Регистрация: 18.05.2014
Сообщений: 41
1

Определить наибольший элемент массива Х и вывести исходный массив,этот элемент и его порядковый номер

15.06.2014, 15:26. Просмотров 915. Ответов 1
Метки нет (Все метки)

определить наибольший элемент массива Х и вывести исходный массив,этот элемент и его порядковый номер. исходный массив элементов получить с помощью датчика случайных чисел. количество элементов задать самостоятельно
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.06.2014, 15:26
Ответы с готовыми решениями:

Найти наибольший элемент массива и его порядковый номер
Задан массив X(N). 1.Найти наибольший элемент массива Х и его порядковый номер. Вывести найденные...

Определить минимальный элемент, его номер в массиве, заменить этот элемент элемент числом 1000
1. Задать массив А с помощью генератора случайных чисел положительными и отрицательными числами....

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

Определить максимальный элемент массива и его порядковый номер
Ребят помогите разроботать программы; 1)Задан массив X.Определить max элемент массива и его...

Определить первый отрицательный элемент массива и напечатать его порядковый номер
Задан массив ,в котором 100 элементов .Определить первый отрицательные элемент этого массива и...

1
Svager
398 / 377 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
15.06.2014, 21:40 2
Лучший ответ Сообщение было отмечено ravenkovka как решение

Решение

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
uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    i,max,n,idxi:integer;
begin
 repeat
  write('Êîë-ñòâî ýëåìåíòîâ n=');
  readln(n);
 until n in [1..nmax];
  max:=-100;idxi:=1;
  writeln('Èñõîäíûé ìàññèâ :');
   for i:=1 to n do
    begin
     a[i]:=-10+random(33);
      if a[i]>max then
       begin
        max:=a[i];
        idxi:=i;
       end;
      write(a[i]:4);
    end;
 writeln;
  writeln('Ìàêñèìàëüíûé ýëåìåíò = ',max,' i=',idxi);
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2014, 21:40

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить максимальный элемент каждого четного столбца массива и его порядковый номер
Дан двумерный массив X, где значения элементов массива и их количество вводятся с клавиатуры....

Найти наибольший элемент одномерного массива и определить его номер
Найти наибольший элемент одноимённого массива и определить его номер. Количество символов ввести с...

Найти максимальный элемент массива и его порядковый номер
Дан массив целых чисел. Найти максимальный элемент массива и его порядковый номер


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.