procedure (Var l,m,n,o:integer);
begin
min:=l;
if min>m then min:=m;
if min>n then min:=n;
if min>o then min:=o;
end;
Похожие записи/страницы:
- Даны значения c,d,m,k. Напишите min для вычисления значения следующего выражения:…
- Дан файл, содержащий текст и арифметические выражения вида а*в, где * - один из знаков +, -, *, /. Выписать все…
- Напишите функцию вычисления длины отрезка по координатам его концов. С помощью этой функции напишите программу…
- Создайте программу вычисления и вывода на экран минимального значения одномерного массива размерностью N,…
- Написать программу для вычисления заданного выражения 0,15 - 0,17 + 0,19 -...- 0,33 и вывода на экран…
- Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих…
- Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из…
- Написать программу вычисления периметра прямоугольника со сторонами А и В- Pascal(Паскаль)