Відповідь:
Пояснення:
1/
program g;
var a: array [1..5] of integer;
i,imax,imin, n: byte;
begin
imax:=1; imin:=1; n:=0;
writeln('Ââåäèòå ìàññèâ èç 5 ýëåìåíòîâ â ñòðîêó ÷åðåç ïðîáåë');
for i:=1 to 5 do
begin
read(a[i]);
if a[i]>a[imax] then imax:=i;
if a[i]<a[imin] then imin:=i;
end;
if imax < imin then
for i:=imax+1 to imin do
if a[i] < 0 then n:= n+1;
if imin < imax then
for i:=imin+1 to imax do
if a[i] < 0 then n:= n+1;
if n>=1 then writeln('Äà')
else writeln('Íåò');
readln;
end.
2.
program kol;
var a: array [1..5] of integer;
i,max,min, n ,m: byte;
begin
max:=1; min:=1;
n := 0; m := 0;
writeln('Ââåäèòå ìàññèâ èç 5 ýëåìåíòîâ â ñòðîêó ÷åðåç ïðîáåë');
for i:=1 to 5 do
begin
read(a[i]);
if a[i]>a[max] then a[i]:= a[max];
if a[i]<a[min] then a[i]:= a[min];
end;
for i:=1 to 5 do
begin
if a[i] = a[max] then n:= n+1;
if a[i] = a[min] then m:=m+1;
end;
writeln('Êîëè÷åñòâî ìàêñèìàëüíûõ ýëåìåíòîâ ', n);
writeln('Êîëè÷åñòâî ìèíèìàëüíûõ ýëåìåíòîâ ', m);
readln;
end.
string Price;
Console.WriteLine("Введите сумму покупки.");
Price = Console.ReadLine();
if (ushort.TryParse(Price, out ushort NewPrice))
{
if (NewPrice >= 1000 && NewPrice < 1500)
{
var DiscountedPrice = NewPrice - NewPrice * 0.03;
Console.WriteLine("Цена с учётом скидки 3%: {0:C}", DiscountedPrice);
}
else if (NewPrice > 1500)
{
var DiscountedPrice = NewPrice - NewPrice * 0.05;
Console.WriteLine("Цена с учётом скидки 5%: {0:C}", DiscountedPrice);
}
else
{
Console.WriteLine("Цена без учёта скидки: {0:C}", NewPrice);
}
}
else
{
Console.WriteLine("Введите корректное значение.");
Console.ReadLine();
return;
}
Console.ReadLine();
C#
