Составить программу для нахождения наименьшего из положительных элементов массива из 20 целых чисел диапазона (-50;50)

@krolegus · Регистрация: 24.12.2013

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

составить программу для нахождения наименьшего из положительных элементов массива из 20 целых чисел диапазона (-50;50). помогите пожалуйста.

@newyork7776 · 24.12.2013, 22:38

Pascal

var mas:array [1..100] of Integer;
    i,n,min:Integer;
begin
  Randomize;
  Write('Array = ');
  for i:=1 to 20 do
    begin
      mas[i]:=Random(100)-50;
      if ((i=1)and(mas[1]>0)) then begin min:=mas[i]; end;
      if ((min>mas[i])and(mas[i]>0)) then min:=mas[i];
      write(mas[i],' ');
    end;
    writeln;
  Writeln('MIN = ',min);
  readln;
end.

@krolegus · 24.12.2013, 22:44 **[ТС]**

спасибо большое.

@krolegus 0 / 0 / 0 Регистрация: 24.12.2013 Сообщений: 9
		1
	Составить программу для нахождения наименьшего из положительных элементов массива из 20 целых чисел диапазона (-50;50) 24.12.2013, 22:24. Показов 2860. Ответов 2 Метки нет (Все метки) составить программу для нахождения наименьшего из положительных элементов массива из 20 целых чисел диапазона (-50;50). помогите пожалуйста. 0

@krolegus 0 / 0 / 0 Регистрация: 24.12.2013 Сообщений: 9
	24.12.2013, 22:44 [ТС]	3
	спасибо большое. 0

Опции темы

Составить программу для нахождения наименьшего из положительных элементов массива из 20 целых чисел диапазона (-50;50)

Решение