<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -10, 10);
a.Println;
var i := a.IndexMax;
Writeln('максимальный a[', i + 1, ']=', a[i]);
i := a.IndexMin;
Writeln('минимальный a[', i + 1, ']=', a[i])
end.
<h2>-2 0 -3 0 3 -2 1 -9 -9 -2</h2><h2>максимальный a[5]=3</h2><h2>минимальный a[8]=-9</h2>
PASCAL
program aa;
var a : integer;
begin
writeln('Введите день недели');
Read(a);
If (a < 1) or (a>7) then writeln('Такого дня не существует');
If (a > 0) and (a<6) then writeln('Рабочий день');
If a=4 then writeln(четверг');
end
"Каков разум, таковы и речи"
"Ростом с тебя, а разумом с теля"
" Время и случай разум подают"
" Ученье — свет, а неученье — тьма"
"Повторенье — мать ученья"
" Не стыдно не знать, стыдно не учиться"
" Умелые руки не знают скуки"
" С молитвой в устах, с работой в руках"
"Без труда не вытащишь и рыбку из труда"
Использование модели "черный ящик позволяет изучить" только взаимдействие предмета и среды при этом даже отстутстуют границы между средой и объектом. считается сущестующим
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 31 шт
i = 8 бит
I - ?
Решение:
I = K * i = 31 * 8 бит = 248.0 бит