Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Вычислить значение выражения http://www.cyberforum.ru/turbo-pascal/thread12457.html
Turbo Pascal При использовании функции log (x) при компиляции выводится ошибка "unknown identifier"
Добрый день, при использовании функции log(x) при компиляции выводится ошибка "unknown identifier". Разве эта функция не встроенная? Обьясните, пожалуйста, в чем дело.
Turbo Pascal Разыскивается паскаль 7.0
Разыскивается паскаль 7.0 !
Turbo Pascal Перевести сумму евро в гривне от A к B с шагом C Задача 1 У предпринимателя N ящиков, в каждом из которых по B кг товара. Определить, какой штраф он оплатит комитету по защите прав потребителей, если он продает товар по C гривен за килограмм и... http://www.cyberforum.ru/turbo-pascal/thread11476.html
Turbo Pascal Квадратное уравнение http://www.cyberforum.ru/turbo-pascal/thread10412.html
:help:Помогите пожалуста - составил програму для решения квадратного уравниея A*X2+B*X+C=0. Єто уравниние существует квадратным только єсли А неравно 0. Для поиска корней квадратного уравнения нужно...
Turbo Pascal Перевести код с QBasic
Собственно, вот задание. Надо перевести прогу на Pascal. Помогите, пожайлуста! 10 PRINT 'РАСЧЕТ ПАРАМЕТРА X СПИРАЛЬНОЙ КОАКСИАЛЬНОЙ ЛИНИИ' 20 INPUT 'ВВЕДИТЕ N, D, E' N, D, E: LET M = N*N 30 INPUT...
Подскажите как включить русский язык в Паскале 7,0 [?] Turbo Pascal
Здравствуйте уважаемые программисты! Я новичок. Подскажите пожалуйста, как включить русский язык в Паскале. Пробывал вставлять файл keyrus в папку Bin. Менял в свойствах Паскаля настройки, ничего не...
Turbo Pascal Посоветуйте, как решить 2 небольшие задачи Это задачи по практике в институте. 1. Пусть цвета экрана имеют номера 0, 1, ..., k. Высветить все точки экрана (или точки некоторой прямоугольной области) различными цветами, используя для точки с... http://www.cyberforum.ru/turbo-pascal/thread10039.html
Turbo Pascal помогите задать функцию без ошибок http://www.cyberforum.ru/turbo-pascal/thread9813.html
задать фукцию надо через проц и функции,как бы я её не задавала, комп мне пишет то стек переполнен, то ещё что-нить. уже 4 дня бьюсь ничего не выходит какие у вас есть варианты задания, при чём...
Turbo Pascal Подсчитать количество целых среди чисел А, B, С 1) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоту, радиусы вписанной и описанной окружностей 2) Числа А и B выражают длины катетов одного прямоугольного... http://www.cyberforum.ru/turbo-pascal/thread9650.html
Искандар
Заблокирован
16.11.2011, 19:01 0

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

16.11.2011, 19:01. Просмотров 3730. Ответов 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
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.11.2011, 19:01
Готовые ответы и решения:

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

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

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

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

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

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