Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/26: Рейтинг темы: голосов - 26, средняя оценка - 4.50
M6
0 / 0 / 0
Регистрация: 05.11.2014
Сообщений: 10
1

Найти и вывести минимальное трехзначное число, записанное в данном массиве

06.11.2014, 00:46. Просмотров 4699. Ответов 1
Метки нет (Все метки)


Дан целочисленный массив из 30 элементов, все элементы которого – неотрицательные числа, не превосходящие 10000. Напишите, пожалуйста, программу, которая находит и выводит минимальное трехзначное число, записанное в этом массиве. Если таких чисел нет, нужно вывести сообщение «Таких чисел нет».
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.11.2014, 00:46
Ответы с готовыми решениями:

Найти и вывести минимальное трехзначное число, записанное в массиве
Дан целочисленный массив из 30 элемента, все элементы которого – неотрицательные числа, не...

Найти и вывести минимальное трехзначное число, записанное в массиве
Дан целочисленный массив из 30 элементов, все элементы которого – неотрицательные числа, не...

Найти минимальное трёхзначное число, записанное в массиве
Дан целочисленный массив из 30 элементов . Элементы которого могут принимать значения от 0 до 1000...

Найти минимальное трехзначное число, записанное в массиве
Дан целочисленный массив из 30 элемента, все элементы которого – неотрицательные числа, не...

1
Эксперт Pascal/Delphi
6559 / 4416 / 4714
Регистрация: 05.06.2014
Сообщений: 21,704
06.11.2014, 17:48 2
Лучший ответ Сообщение было отмечено M6 как решение

Решение

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
32
33
34
35
36
37
38
39
{ Дан целочисленный массив из 30 элементов, все элементы которого -
неотрицательные числа, не превосходящие 10000. Напишите, пожалуйста,
программу, которая находит и выводит минимальное трехзначное число,
записанное в этом массиве. Если таких чисел нет, нужно вывести
сообщение <Таких чисел нет>. }
const
  n=30;
var
  a:array[1..n] of integer;
  k,i,min:integer;
begin
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random(10000);
      write(a[i]:5);
    end;
  k:=0;
  for i:=1 to n do
    if (a[i]>=100) and (a[i]<=999) then
      begin
        k:=i;
        break;
      end;
  if k=0 then
    begin
      writeln; 
      writeln('В массиве нет трехзначных чисел! Программа завершена.');
      exit;
    end;
  min:=a[k];
  for i:=k to n do
    if (a[i]>=100) and (a[i]<=999) then
      if min>a[i] then
        min:=a[i];
  writeln;
  writeln('Минимальное среди трехзначных чисел: ',min);
  readln;
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.11.2014, 17:48

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти минимальное трехзначное число, записанное в динамическом массиве
// Е_С2_25) Дан целочисленный массив из 30 элемента, //все элементы которого – неотрицательные...

Определить и вывести на экран наименьшее трехзначное число, записанное в массиве
Дан целочисленный массив из 30 элементов, все элементы которого –неотрицательные числа, не...

Найти минимальное число в двумерном массиве в данном столбце и присвоить ему значение 0
Мне нужно понять в итоге какой номер в массиве имеет найденное минимальное число чтобы присвоить...

procedure: вывести минимальное трехзначное число массива
сформировать массив из 30эл(до 10000) и вывести минемальное 3х значное число


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.