//PascalABC.Net 3.0, сборка 1064
const
n=20;
var
a:array[1..n] of integer;
i,imax,imin:integer;
s:longint;
begin
Randomize;
Writeln('Исходный ряд значений');
imax:=1; imin:=1;
for i:=1 to n do begin
a[i]:=Random(51)-25; Write(a[i],' ');
if a[i]>a[imax] then imax:=i
else
if a[i]<a[imin] then imin:=i
end;
Writeln;
if imax>imin then
Writeln('Максимальный элемент встретился позже минимального')
else begin
s:=0;
for i:=imax+1 to imin-1 do s:=s+a[i];
Writeln('Сумма элементов между максимальным и минимальным значением ',s)
end
end.
<em><u>Тестовое решение:</u></em>Исходный ряд значений
10 -3 9 5 20 10 6 2 -19 -19 6 -24 -7 -1 23 11 -8 -16 -14 -25
Сумма элементов между максимальным и минимальным значением -27
мозг быстрее всего обрабатывает информацию , флешка дольше всего хранит инфу а дальше сам понять не могу
8. Совокупность мировых систем телекоммуникаций и циркулирующей в них информации
А) киберпространство Б) Web - сервер
B) Web – сайт Г) Web – браузер
{ Pascal }
PROGRAM Calendar(INPUT, OUTPUT);
VAR
Num: INTEGER;
BEGIN
WRITE('Введите номер месяца: ');
READ(Num);
CASE Num OF
1: WRITELN('Январь');
2: WRITELN('Февраль');
3: WRITELN('Март');
4: WRITELN('Апрель');
5: WRITELN('Май');
6: WRITELN('Июнь');
7: WRITELN('Июль');
8: WRITELN('Август');
9: WRITELN('Сентябрь');
10: WRITELN('Октябрь');
11: WRITELN('Ноябрь');
12: WRITELN('Декабрь');
END;
END.
1г углеводы - 4,1 ккал
1 г жиров — 9,3 ккал
1 г белков — 4,2 ккал
<span>----------------------------</span>
<span>Вычесления крайне простые,на пример возмем порцию картлофеля с маслом:</span>
<span>1.</span>
<span>От белков : 2,7г*4,2ккал/г=11.34ккал</span>
<span>От углеводов:39г*4.1ккал/г=159.9ккал</span>
<span>От жиров:7г*9.3ккал/г=65.1ккал</span>
<span>2.Общая калорийность блюда</span>
<span>11.34+159.9+65.1=236.34(кка)</span>
<span>3.Если в обед входят ещё какие блюда то сумируешь их энергетические ценности каждого компонента(б,угл,ж).</span>
<span>4.Суммируешь общую каллорийность блюд .</span>
<span>Здесь главное продумать структуру таблицы .</span>
<span> </span>
