Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/19: Рейтинг темы: голосов - 19, средняя оценка - 4.53
Vitek
0 / 0 / 0
Регистрация: 20.09.2009
Сообщений: 19
1

Найти минимальное значение среди элементов массива

18.09.2008, 17:24. Просмотров 3590. Ответов 9
Метки нет (Все метки)

задача:напишите программу, позволяющую найти минимальное значение среди элементов массива, имеющих нечетные индексы. на вход программе сначало подается значение n<=100 количество элементов в массиве .в следуещей строке вход данных расположенысами элементы массива-целые числа. выдайте значение этого минимального числа
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.09.2008, 17:24
Ответы с готовыми решениями:

Найти максимальное и минимальное значение среди элементов массива
Помогите пожалуйста. Описать вещественный массив из n элементов. Заполнить его значениями: sin0.1,...

Операции над массивами. Определить максимальное значение среди нечетных элементов массива и минимальное среди четных элементов массива
Дан одномерный массив А размерностью 16. Определить максимальное значение среди нечетных элементов...

Вывести минимальное значение среди элементов массива, которые имеют четное значение и не делятся на 3
Дана задача Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые...

Найдите минимальное значение среди положительных элементов массива
Задание 3. Найдите минимальное значение среди положительных элементов массива.

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

9
paul
0 / 0 / 0
Регистрация: 16.03.2008
Сообщений: 18
19.09.2008, 15:22 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var a:array[1..100] of integer;
    i,min,n:integer;
begin
    randomize;
    writeln('vvedit kil elementiv masyva <=100');
    readln(n);
    writeln('vygliad masyvu');
    for i:=1 to n do
    begin
        a[i]:=random(50);
        write(a[i],' ');
    end;
    writeln;
    min:=a[1];
    for i:=1 to n do begin
        if i mod 2<>0 then
        begin
            if min>a[i] then
                min:=a[i];
        end;
    end;
    writeln('min=',min)
end.
0
kostia3112
0 / 0 / 0
Регистрация: 23.09.2008
Сообщений: 5
24.09.2008, 20:01 3
помогите пожалуйста кому не сложно решить задачу по turbo pascal мне очень надо я только учюсь и пока не розбераюсь даже в самых легких задачах: дана текст-формула, определить, какие цифры не используються в этой формуле. Пожалуйста очень надо!
0
paul
0 / 0 / 0
Регистрация: 16.03.2008
Сообщений: 18
24.09.2008, 23:29 4
Цитата Сообщение от kostia3112 Посмотреть сообщение
помогите пожалуйста кому не сложно решить задачу по turbo pascal мне очень надо я только учюсь и пока не розбераюсь даже в самых легких задачах: дана текст-формула, определить, какие цифры не используються в этой формуле. Пожалуйста очень надо!

А можно подробнее
0
24.09.2008, 23:29
Aleksandra)
0 / 0 / 0
Регистрация: 15.11.2011
Сообщений: 3
15.11.2011, 22:11 5
решите задачу пожалуйста!дано 2 числа вывести на экран 1 число если оно больше 2 и оба если это не так
0
Искандар
Заблокирован
15.11.2011, 22:41 6
Цитата Сообщение от Aleksandra) Посмотреть сообщение
решите задачу пожалуйста!дано 2 числа вывести на экран 1 число если оно больше 2 и оба если это не так
не совсем понял что от меня требуется, но вот примерный листинг:
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,b:integer;
begin
  readln(a,b);
  if a>2 then
     write(a)
  else if b>2 then
           write(b)
        else
            write(a,'   ',b);
readln;
end.
1
Noclip
43 / 27 / 6
Регистрация: 27.09.2011
Сообщений: 280
16.11.2011, 03:04 7
Искандар,
Aleksandra),
То есть Введем два числа и если перво больше второго то показать его иначе если это не так то вывести и первое и второе число..


вот программа.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program pr1;
uses crt;
var a,b:integer;
begin
clrscr; //очистка экрана
  readln(a,b);  // вводим первое числоа(а) и второе (b)
  if a>b then    // если а>b  то
writeln('pervoe chislo',a);        // выводим а
  else if b>2 then // иначе если b>a
           writeln('pervoe chislo -',a,'vtoroe chislo -',b);  // выводим b и а
readln;
end.
Должно работать
1
Aleksandra)
0 / 0 / 0
Регистрация: 15.11.2011
Сообщений: 3
16.11.2011, 18:28 8
нужна помощь!!
задача 1.определить суму большего и меньшего числа из трёх чисел
задача 2.определить поместится ли квадрат с площадью S1 в кругу с площадью S2
спасибо за решение задач)
0
Искандар
Заблокирован
16.11.2011, 19:01 9
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

№1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var a,b,c:integer;
begin
write('vvedite tri chsla: ');
readln(a,b,c);
if (a>b) and (a>c) then 
   if b>c then 
      writeln('summa bolshego i menshego chisla =', a+c)
   else
      writeln('summa bolshego i menshego chisla =', a+c)
else if (b>a) and (b>c) then
    if a>c then
       writeln('summa bolshego i menshego chisla =', b+c)
    else
      writeln('summa bolshego i menshego chisla =', b+a);
if (c>a) and (c>b) then
    if a>b then
      writeln('summa bolshego i menshego chisla =', b+c)
    else
      writeln('summa bolshego i menshego chisla =', c+a);
readln;
end.
1
Aleksandra)
0 / 0 / 0
Регистрация: 15.11.2011
Сообщений: 3
16.11.2011, 19:46 10
спасибо большое)):dance3:
0
16.11.2011, 19:46
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.11.2011, 19:46

Определить минимальное значение среди положительных элементов массива, оканчивающихся на 3
Уважаемые!!! Нужна Ваша помощь. Сейчас сижу на экзамене и нужно решить задачку!!! Помогите...

Найти минимальное значение среди сумм элементов всех строк матрицы
Дана матрица размера 5 х 10. Найти минимальное1|максимальное2 значение среди сумм элементов всех её...

Массив: найти максимальное и минимальное значение среди четных и нечетных элементов.
В массиве Е(65) найти максимальное и минимальное значение среди четных и нечетных...


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

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

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