Найти минимальный элемент массива

@irean · Регистрация: 28.11.2009

Студворк — интернет-сервис помощи студентам

еще помогите пожалуйста решить))
8.Найти минимальный элемент массива А(5,6).
9.Найти минимальный элемент массива А(10) и его порядковый номер или порядковые номера, если их несколько.
10.Найти максимальный элемент массива А(10) и его порядковый номер.
11.Найти максимальный элемент массива А(10) и его порядковый номер.
12.Дана строка символов. Подсчитать количество слов.

@Unrealler · 21.01.2010, 20:13

8:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var a:array [1..5,1..6] of integer;
i,j,min:integer;
begin
clrscr;
randomize;
min:=50;
for i:=1 to 5 do
 begin
  writeln;
  for j:=1 to 6 do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
    if (a[i,j]<=min) then min:=a[i,j];
   end;
 end;
writeln('    Min element: ',min);
readln
end.

@pikusfikus · 21.01.2010, 20:23

Сообщение от Unrealler

min:=50;

откуда такие выводы?
а если все элементы массива больше 50?

@Unrealler · 21.01.2010, 20:25

9,10,11:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var a:array[1..10]of integer;
i,max:integer;
begin
clrscr;
max:=0;
randomize;
for i:=1 to 10 do
 begin
  a[i]:=random(50);
  write(a[i]:4);
  if (a[i]>=max) then max:=a[i];
 end;
writeln('   Max element: ',max);
writeln('Pod nomeramy: ');
for i:=1 to 10 do
 if (a[i]=max) then writeln(i);
readln
end.

Добавлено через 1 минуту

Сообщение от pikusfikus

откуда такие выводы?
а если все элементы массива больше 50?

В данном случае можно брать любые значения элементов. Я взял случайные до 50. Поэтому если все числа будут равны 50, то наим. все равно 50

@pikusfikus · 21.01.2010, 20:26

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
type
mas=array[1..5,1..6] of integer;
var
a:mas;
i,j,min:integer;
begin
randomize;
for i:=1 to 5 do begin
for j:=1 to 6 do begin
a[i,j]:=random(51)-10;
write(a[i,j]:4);
end;
writeln;
end;
min:=a[1,1];
for i:=1 to 5 do
for j:=1 to 6 do
if a[i,j]<min then min:=a[i,j];
writeln('MiN=',min);
end.

Добавлено через 46 секунд

Сообщение от Unrealler

9,10,11:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var a:array[1..10]of integer;
i,max:integer;
begin
clrscr;
max:=0;
randomize;
for i:=1 to 10 do
 begin
  a[i]:=random(50);
  write(a[i]:4);
  if (a[i]>=max) then max:=a[i];
 end;
writeln('   Max element: ',max);
writeln('Pod nomeramy: ');
for i:=1 to 10 do
 if (a[i]=max) then writeln(i);
readln
end.

Добавлено через 1 минуту

В данном случае можно брать любые значения элементов. Я взял случайные до 50. Поэтому если все числа будут равны 50, то наим. все равно 50

вы подаете неправильный пример новичкам

@alexio · 21.01.2010, 20:32

12.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var
a:string;
k,i:integer;
begin
clrscr;
writeln ('Vvedite stroku');
readln (a);
a:=' '+a;
for i:=1 to length(a) do
if a[i]=' ' then inc(k);
write ('k=',k);
end.

@Unrealler · 21.01.2010, 20:37

Сообщение от pikusfikus

вы подаете неправильный пример новичкам

Но ведь я и сам только учусь. Лишь на днях начал изучать массивы. Спасибо за правильный пример.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@irean 0 / 0 / 0 Регистрация: 28.11.2009 Сообщений: 30

	Найти минимальный элемент массива 21.01.2010, 19:57. Показов 2981. Ответов 6 Метки нет (Все метки) еще помогите пожалуйста решить)) 8.Найти минимальный элемент массива А(5,6). 9.Найти минимальный элемент массива А(10) и его порядковый номер или порядковые номера, если их несколько. 10.Найти максимальный элемент массива А(10) и его порядковый номер. 11.Найти максимальный элемент массива А(10) и его порядковый номер. 12.Дана строка символов. Подсчитать количество слов. 0