Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
kotofey
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 89
1

Ввести массив из 10 элементов типа integer,найти максимальный элемент

13.03.2010, 14:01. Просмотров 1973. Ответов 3
Метки нет (Все метки)

2)Ввести массив из 10 элементов типа integer,найти максимальный элемент,вывести номер и значение элемента.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2010, 14:01
Ответы с готовыми решениями:

Составить процедуру для ввода данных в массив A(n) типа integer. Данные вводятся из типизированного файла типа integer, начиная с k-ой по n-ую
Составить процедуру для ввода данных в массив A(n) типа integer. Данные вводятся из типизированного...

Одномерный массив.30 элементов. Найти максимальный элемент..и количество элементов равных максимальному
Здраствуйте! У меня проблема с написанием программы. Задание что то вроде такого: ...

Дан массив на 20 элементов заполнены случайным образом от -10 до +20. Найти максимальный элемент.
Помогите плиз))) составить программу Дан массив на 20 элементов заполнены случайным образом от...

Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5, … .
Array12. Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами:...

Сформировать двумерный массив, найти произведение положительных элементов, найти максимальный элемент и его значения
Сформировать двумерный массив С (5,5) из случайных целых чисел на интервале .В массиве найти...

3
nVz
171 / 169 / 30
Регистрация: 12.12.2009
Сообщений: 1,336
13.03.2010, 14:11 2
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
program gg;
uses crt;
var
   a:array[1..10] of integer;
   max,k,i:integer;
begin
   clrscr;
   writeln('vvedite massiv:');
   for i:=1 to 10 do
   readln(a[i]);
 
   max:=1;
   for i:=1 to 10 do
   if a[i]>max then
    begin
    max:=a[i];
    k:=i;
    end;
 
   writeln('max = ', max);
   writeln('nomer = ',k);
 
   readln;
   end.
0
kotofey
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 89
13.03.2010, 16:29  [ТС] 3
она у меня почему то не работает просит ввести массив вводишь а потом не выходит приходится набирать quit и всё дальше запускать таже самая фигня
0
WolfCF
3294 / 1354 / 108
Регистрация: 28.04.2009
Сообщений: 4,823
13.03.2010, 16:33 4
все рабочее
0
Миниатюры
Ввести массив из 10 элементов типа integer,найти максимальный элемент  
13.03.2010, 16:33
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2010, 16:33

Массив. Найти максимальный элемент из элементов с нечетными номерами
Помогите пожалуйста с прогой)) Дан массив A размера N. Найти максимальный элемент из его элементов...

Сформировать новый массив из чётных значений элементов массива В и найти в новом массиве максимальный элемент
Дан массив B(n). Сформировать новый массив из чётных значений элементов массива В и найти в новом...

Как сделать так, чтобы из каждого столбца я могла найти максимальный элемент и сформировать массив из максимальных элементов
program n1; uses crt; const n=100;m=100; var P: array of integer; H: array of integer; q:...


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

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

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