Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.65/103: Рейтинг темы: голосов - 103, средняя оценка - 4.65
0 / 0 / 0
Регистрация: 25.01.2014
Сообщений: 8
1

Заполните массив случайными числами и найти минимальный и максимальный элементы массива и их номера

25.01.2014, 12:27. Просмотров 20376. Ответов 2
Метки нет (Все метки)


пожалуйста
Заполните массив случайными числами и найти минимальный и максимальный элементы массива и их номера.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.01.2014, 12:27
Ответы с готовыми решениями:

Заполните массив случайными числами и найти минимальный и максимальный элементы и их номера
Заполните массив случайными числами и найти минимальный и максимальный элементы и их номера. ...

Заполнить массив случайными числами и найти минимальный и максимальный элементы массива и их номера
«A»: Заполнить массив случайными числами и найти минимальный и максимальный элементы массива и их...

Заполните массив случайными числами и найти два максимальных элемента массива и их номера
Задача: Заполните массив случайными числами и найти два максимальных элемента массива и их номера....

Заполните массив случайными числами и найти два максимальных элемента массива и их номера
42) Заполните массив случайными числами и найти два максимальных элемента массива и их номера....

2
56 / 56 / 29
Регистрация: 01.01.2014
Сообщений: 214
25.01.2014, 16:22 2
Лучший ответ Сообщение было отмечено Metom как решение

Решение

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
Program abc;
Uses
 Crt;
Var
  max, min ,indmax,indmin,i : integer;
  A :array [1..10] of Integer;
begin
 
 For i:=1 to 10 do
Begin
   Randomize;
   A[i]:=Random(50);
   Write('¹',i,' = ',A[i],' ');
End;
max := A[1];
min := A[1];
 
 For  i:=1 to 10 do
Begin
 if max<A[i] then begin max:=A[i]; indmax:=i; end;
 if min>A[i] then begin min:=A[i]; indmin:=i; end;
end;
   Writeln;
   WriteLn('¹',indmax,' = ' ,max,' -- íàèáîëüøèé ÷ëåí ìàññèâà');
   WriteLn('¹',indmin,' = ',min,' -- íàèìåíüøèé ÷ëåí ìàññèâà');
end.
1
0 / 0 / 0
Регистрация: 25.01.2014
Сообщений: 8
26.01.2014, 15:03  [ТС] 3
спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.01.2014, 15:03

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

Заполнить массив случайными числами, а позже удалить минимальный и максимальный элементы массива
Как заполнить массив случайными числами, а позже удалить минимальный и максимальный элементы...

Дан массив А(20). Найти минимальный и максимальный элементы массива и их порядковые номера
Дан массив А(20). Найти минимальный и максимальный элементы массива и их порядковые номера.Добрые...

Дан массив А(20). Найти минимальный и максимальный элементы массива, и их порядковые номера
Дан массив А(20). Найти минимальный и максимальный элементы массива, и их порядковые номера.

Дан массив А(20). Найти минимальный и максимальный элементы массива и их порядковые номера
дан массив А(20).Найти минимальный и максимальный элементы массива и их порядковые номера.


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

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

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