0 / 0 / 0
Регистрация: 07.10.2016
Сообщений: 22
1

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

08.10.2016, 00:12. Показов 929. Ответов 1
Метки нет (Все метки)

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

Найти минимальный положительный элемент вектора.
дан вектор содержащий m (1≤n≤100) целых элементов.Напишите программу которая находит минимальный...

Найти минимальный положительный элемент вектора, расположенный левее первого нулевого элемента
Дан целочисленный вектор A(n). Найти минимальный элемент среди положительных элементов,...

Найти минимальный элемент, расположенный на главной диагонали матрицы
h. Сформировать массив В из таких элементов массива А, которые превышают среднее значение массива...

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

1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
08.10.2016, 10:53 2
Лучший ответ Сообщение было отмечено pollTax как решение

Решение

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
27
28
29
30
31
const nmax=100;
      k=5;
var a:array[1..nmax] of integer;
    n,i,z:byte;
    mn:integer;
begin
randomize;
repeat
write('Размер вектора от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Вектор');
z:=0;
for i:=1 to n do
 begin
  a[i]:=-k+random(2*k+1);
  write(a[i]:4);
  if(a[i]=0)and(z=0)then z:=i;
 end;
writeln;
if z=0 then write('В векторе нет 0')
else if z=1 then write('До первого 0 элементов нет')
else
 begin
  mn:=k+1;
  for i:=1 to z-1 do
  if(a[i]>0)and(a[i]<mn) then mn:=a[i];
  if mn=100 then write('До первого 0 нет положительных элементов')
  else write('Минимальный положительный элемент до  первого 0=',mn);
 end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.10.2016, 10:53
Помогаю со студенческими работами здесь

Найти минимальный элемент, расположенный на главной диагонали матрицы
1) Для массива А, состоящего из N элементов. a)Найти минимальный элемент, расположенный на главной...

Найти минимальный элемент массива, расположенный на четной позиции
6. В массиве из 16 элементов найти минимальный элемент, расположенный на четном месте. Не хочу...

Найти минимальный элемент матрицы, расположенный ниже главной диагонали
Задана матрица размером NxN. Найти минимальный элемент, среди элементов, расположенных ниже главной...

В массиве из 16 элементов найти минимальный элемент, расположенный на четном месте
Всем привет=) Помогите с прогой пож.: В массиве из 16 элементов найти минимальный элемент,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru