Введите цену трех товаров и напечатать цену самого дешевого товара
5-9 класс
|
program af;
uses crt;
var x,y,z:integer;
begin
clrscr;
readln(x,y,z);
if (x<y)and(x<z) then writeln(x)
else
if (y<x)and(y<z) then writeln(y)
else
if (z<x)and(z<y) then writeln(z);
readln;
end.
Другие вопросы из категории
элементов в матрице не более 10-ти
Порядок ввода исходных данных:
-число элементов в массиве
-элементы массива
Порядок вывода результатов:
-сообщение Элементы найдены или Элементы не найдены.
написано на время загрузки отключить Антивирус.
Читайте также
1) написать программу, которая выводит на экран таблицу с числами от 1 до 10 их квадратами и квадратным корнем (цикл с параметром)
Введите цену одного килограмма и нажмите enter (копейка от рубля отделается точкой
Число Квадрат числа. Корень квадрата
1. 1. 1
2. 4. 1.41
3. 9. 1.73
И тд
дешевого(дорогого) товара и его индекс.
вот программа но в ней где-то ошибка
program xxx;
var a:array [1..10] of integer;
i, max, min:integer;
begin
for i:=1 to 10 do read(a[i]);
min:=1;
for i:=2 to 10 do
if a[i]<min then min:=a[i];
writeln('a[',i,']=',a[i]);
max:=a[i];
for i:=2 to 10 do
if a[i]>max then max:=a[i];
writeln('a[',i,']=',a[i]);
end.
напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмаических языках.