#include<iostream>
using namespace std;
int main()
{
setlocale( LC_ALL, "Russian" );
float a,b,s;
int dp;
cout << "Привет! Я калькулятор!Какие действие вы будете выполнять:" << endl;
cout << "1. Сложение. " << endl;
cout << "2. Отнимание." << endl;
cout << "3. Умножение." << endl;
cout << "4. Деление." << endl;
cout << "Введите число для выбора действия" << endl;
cin >> dp;
switch(dp)
{
case 1:
cout << "Число a = " << endl;
cin >> a;
cout << "Число b = " << endl;
cin >> b;
s = a + b;
cout << "\n" << a << " * " << b << " = "<< s << endl;
break;
case 2:
cout << "Число a = " << endl;
cin >> a;
cout << "Число b = " << endl;
cin >> b;
s = a - b;
cout << "\n" << a << " * " << b << " = "<< s << endl;
break;
case 3:
cout << "Число a = " << endl;
cin >> a;
cout << "Число b = " << endl;
cin >> b;
s = a * b;
cout << "\n" << a << " * " << b << " = "<< s << endl;
break;
case 4:
cout << "Число a = " << endl;
cin >> a;
cout << "Число b = " << endl;
cin >> b;
s = a / b;
cout << "\n" << a << " / " << b << " = "<< s << endl;
break;
}
return 0;
}
1
program Prog;
var i, MinElement: Integer;
arr: array[1..15] of Integer;
begin
{ задаем значение минимального элемента. изначально
оно дожно быть максимально возможным, так как мы будем
все элементы с ним сравнить и вычислять, какой из них наименьший.
для этого после того, как мы нашли элемент меньше чем имеющийся минимум,
то мы этот минимум изменяем на найденное нами число }
MinElement:=High(Integer); { т.к. будем работать с Integer, то максимум будем брать у Integer,
но вообще еще можно присвоить ему значение первого элемента массива и сравнивать потом с ним }
randomize; { это чтоб заполнить рандом. числами }
// запоолнение массива рандомом
for i:=1 to 15 do begin
arr[i]:=random(100); { для примера числа будут от 0 до 99 }
{ здесь мы как раз сравниваем с имеющимся минимум и меняем его,
если нашли элемент меньше }
if arr[i]<MinElement then
MinElement:=arr[i]
end;
// вывод всего массива
for i:=1 to 15 do
write(arr[i], ' ');
writeln;
// вывод минимума
writeln('Минимальный элемент: ', MinElement);
end.