Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
0 / 0 / 0
Регистрация: 20.06.2017
Сообщений: 1
1

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

20.06.2017, 19:15. Показов 2540. Ответов 2
Метки нет (Все метки)

создать массив, элементы массива вводятся с клавиатуры и определить наибольший элемент массива
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.06.2017, 19:15
Ответы с готовыми решениями:

массив. Найти наибольший элемент и его номер в массиве,элементы которого вводятся с клавиатуры. Размер массива n
Найти наибольший элемент и его номер в массиве,элементы которого вводятся с клавиатуры. Размер...

Найти наименьший элемент массива размером М х N, элементы которого вводятся с клавиатуры
Найти наименьший элемент массива размером МхN, элементы которого вводятся с клавиатуры.

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

Создать и вывести на экран дерево, элементы которого вводятся с клавиатуры и имеют целый тип
Создать и вывести на экран дерево, элементы которого вводятся с клавиатуры и имеют целый тип....

2
Эксперт Pascal/Delphi
6636 / 4464 / 4746
Регистрация: 05.06.2014
Сообщений: 21,951
20.06.2017, 20:02 2
Лучший ответ Сообщение было отмечено Давид110400 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const
  n = 10;
 
var
  x: array[1..n] of integer;
  i, max: integer;
 
begin
  max := 1;
  for i := 1 to n do
  begin
    readln(x[i]);
    if x[i] > x[max] then
      max := i;
  end;
  write('Max: ', x[max]);
end.
0
0 / 0 / 1
Регистрация: 20.06.2017
Сообщений: 5
20.06.2017, 20:15 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program nem;
 
var i, maxi:integer;
a:array[1..10] of integer;
begin
  for i:=1 to 10 do begin
    write(i, '-й элемент массива: ');
    readln(a[i]);
  end;
  writeln('Ваш массив:');
  for i:=1 to 10 do 
  write(a[i]:4);
  writeln;
  maxi:=a[1];
  for i:=1 to 10 do 
    if maxi<a[i] then 
      maxi:=a[i];
  writeln('Максимальный элемент массива равен ', maxi);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.06.2017, 20:15

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

В одномерном массиве Е(Л) элементы которого вводятся с клавиатуры, подсчитайте сумму нечетных элементов массива
Помогите пожалуйста решить Нужна полностью программа по заданию: В одномерном массиве Е(Л)...

Дан одномерный массив A[12],элементы которого вводятся с клавиатуры.Выяснить сколько нечётных элементов в массиве.
Народ помогите два кода написать очень срочно надо,вот задачи. 1)Дан одномерный массив A,элементы...

Найти произведение элементов в каждой строке массива размером MxN, элементы которого вводятся с клавиатуры
Найти произведение элементов в каждой строке массива размером MxN, элементы которого вводятся с...

Дан одномерный массив Е(10) элементы которого вводятся с клавиатуры. Подсчитать сумму максимального и минимального элемента в массиве Е.
Здравствуйте программисты) Меня не было всего лишь на паре тем по паскалю, и по этому не знаю...


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

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

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