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

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

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

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

@Unrealler · 21.01.2010, 20:13

8:

Pascal

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

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

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

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

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

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

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

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

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	21.01.2010, 20:23	3
	Сообщение от Unrealler min:=50; откуда такие выводы? а если все элементы массива больше 50? 1

@Unrealler 654 / 352 / 113 Регистрация: 11.12.2009 Сообщений: 508
	21.01.2010, 20:37	7
	Сообщение от pikusfikus вы подаете неправильный пример новичкам Но ведь я и сам только учусь. Лишь на днях начал изучать массивы. Спасибо за правильный пример. 1