Найти минимальный положительный элемент одномерного массива.

@hard32 · Регистрация: 26.05.2011

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

Ввод массива с клавиатуры

@Amid007 · 26.05.2011, 23:15

Pascal

program mas;
uses crt;
var a: array [1..10] of integer;
    i,min: integer;
begin
 clrscr;
 for i:=1 to 10 do
 begin
  write('a[',i,']= ');
  readln(a[i]);
 end;
 min:=32767;
 for i:=1 to 10 do
 if (a[i]<min) and (a[i]>0) then min:= a[i];
 writeln('min= ',min);
 readln;
end.

@hard32 · 27.05.2011, 00:04 **[ТС]**

Очень благодарен! Но если все введенные элементы будут отрицательными? как лучше else вставить?

@Amid007 · 27.05.2011, 00:21

просто выдать сообщение от ом что нету положительных элементов

@hard32 · 27.05.2011, 00:25 **[ТС]**

if (a[i]<min) and (a[i]>0) then min:= a[i] else writeln('нет положительных элементов');

так? пробовал, происходит зацикливание, два раза выдает что их нет и ниже то, что минимальным является начальное значение min. напиши если можно как

@Amid007 · 27.05.2011, 00:39

Pascal

program mas;
uses crt;
label 1;
var a: array [1..10] of integer;
i,min,k: integer;
begin
clrscr;
k:=0;
for i:=1 to 10 do
begin
write('a[',i,']= ');
readln(a[i]);
end;
min:=32767;
for i:=1 to 10 do
if (a[i]<min) and (a[i]>0) then min:= a[i]
else k:=k+1;
if k=10 then
begin
 writeln('нету положительных элементов');
 goto 1;
end;
writeln('min= ',min);
1:readln;
end.

@GLeNzi · 27.05.2011, 01:06

а как тоже самое,только min заменить нулем и вывести новую последовательность

@hard32 · 27.05.2011, 01:06 **[ТС]**

Теперь всё работает. Еще раз спасибо

@Amid007 · 27.05.2011, 01:09

а по подробнее можно? (что то же самое, и зачем новая последовательность)

Добавлено через 1 минуту
пожалуйста, если что обращайтесь)))))

@lexus_ilia · 28.05.2011, 15:00

Amid007, избавляйтесь Вы от этих goto. Вот посмотрите как Ваш код

Старый код

Pascal

program mas;
uses crt;
label 1;
var a: array [1..10] of integer;
i,min,k: integer;
begin
clrscr;
k:=0;
for i:=1 to 10 do
begin
write('a[',i,']= ');
readln(a[i]);
end;
min:=32767;
for i:=1 to 10 do
if (a[i]<min) and (a[i]>0) then min:= a[i]
else k:=k+1;
if k=10 then
begin
 writeln('нету положительных элементов');
 goto 1;
end;
writeln('min= ',min);
1:readln;
end.

Можно написать вот так

Новый код

Pascal

program mas;
uses crt;
var 
  a: array [1..10] of integer;
  i,min,k: integer;
begin
  clrscr;
  k:=0;
  for i:=1 to 10 do
  begin
    write('a[',i,']= ');
    readln(a[i]);
  end;
  min:=32767;
  for i:=1 to 10 do
  begin
    if (a[i]<min) and (a[i]>0) then 
      min:= a[i]
    else 
      k:=k+1;
  end
  if k=10 then
    writeln('нету положительных элементов');
  else
    writeln('min= ',min);
  readln;
end.

@Arhip93 · 22.12.2011, 23:55

как для 2 мерного массива тоже самое прописать?

@Amid007 · 23.12.2011, 16:30

Pascal

program mas;
uses crt;
var a:array [1..10] of integer;
     i,min: integer;
begin
 clrscr;
 for i:=1 to 10 do
 begin
  write('a[',i,']= ');
  readln(a[i]);
 end;
 min:=abs(a[1]);
 for i:=1 to 10 do
 if (a[i]>0) and (a[i]<min) then min:=a[i];
 write('min= ',min);
 readln
end.

@авымыиыиы · 14.06.2013, 18:23

Amid007, помогите составить программу
Найти минимальный элемент одномерного массива через процедуру и функцию

@hard32 1 / 1 / 0 Регистрация: 26.05.2011 Сообщений: 9
		1
	Найти минимальный положительный элемент одномерного массива. 26.05.2011, 23:01. Показов 16428. Ответов 12 Метки нет (Все метки) Ввод массива с клавиатуры 0

@hard32 1 / 1 / 0 Регистрация: 26.05.2011 Сообщений: 9
	27.05.2011, 00:04 [ТС]	3
	Очень благодарен! Но если все введенные элементы будут отрицательными? как лучше else вставить? 0

@Amid007 63 / 63 / 51 Регистрация: 20.05.2011 Сообщений: 116
	27.05.2011, 00:21	4
	просто выдать сообщение от ом что нету положительных элементов 1

@hard32 1 / 1 / 0 Регистрация: 26.05.2011 Сообщений: 9
	27.05.2011, 00:25 [ТС]	5
	if (a[i]<min) and (a[i]>0) then min:= a[i] else writeln('нет положительных элементов'); так? пробовал, происходит зацикливание, два раза выдает что их нет и ниже то, что минимальным является начальное значение min. напиши если можно как 0

@GLeNzi 0 / 0 / 0 Регистрация: 27.05.2011 Сообщений: 8
	27.05.2011, 01:06	7
	а как тоже самое,только min заменить нулем и вывести новую последовательность 0

@hard32 1 / 1 / 0 Регистрация: 26.05.2011 Сообщений: 9
	27.05.2011, 01:06 [ТС]	8
	Теперь всё работает. Еще раз спасибо 0

@Amid007 63 / 63 / 51 Регистрация: 20.05.2011 Сообщений: 116
	27.05.2011, 01:09	9
	а по подробнее можно? (что то же самое, и зачем новая последовательность) Добавлено через 1 минуту пожалуйста, если что обращайтесь))))) 1

@Arhip93 2 / 2 / 0 Регистрация: 13.12.2011 Сообщений: 6
	22.12.2011, 23:55	11
	как для 2 мерного массива тоже самое прописать? 0

@авымыиыиы 0 / 0 / 0 Регистрация: 06.05.2013 Сообщений: 16
	14.06.2013, 18:23	13
	Amid007, помогите составить программу Найти минимальный элемент одномерного массива через процедуру и функцию 0