// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
Write('Ср.арифм:',ReadArrReal('>',15).Average)
end.
<u><em>Тестовое решение:</em></u>
> 4 3.7 2.8 1.45 4.15 2 2.47 1.18 3.41 3 2.09 2.0 3.31 2.4 1.94
Ср.арифм:2.66
Средства информации- компьютер и т д
Через сообщения, диалог, книга
Текстовая информация которая есть в школе, это информация написана на стенах тоесть забыл как их называют
40 строк *60 символов = 2400 символов на одной странице
8 бит = 1 байт
16 Гб= 16* 1024 Мб= 16*1024*1024 кб=16*1024*1024*1024 байт = 17179869184 байта
17179869184 / 2400 = 715878,8 страниц
715878,8 /100 =71583 см
{Массив задаётся с помощью генератора случайных чисел. после того как он задан, последовательно перебираются все элементы и определяется наименьший элемент.}
procedure minZNmas;
<span> var
</span> mas: array[1..15] of integer;
k: integer;
min: integer; s: string;
begin
randomize;
//Заполнение массива случайными величинами
s:='';
for k:=1 to 15 do begin
mas[k]:=random(800);
s:=s+IntToStr(mas[k])+',';
end;
//Поиск минимального значения
min:=mas[k];
for k:=1 to 15 do
if mas[k]<min then
min:=mas[k];
Application.MessageBox(PChar(s),'Значения массива', MB_ICONINFORMATION);
Application.MessageBox(PChar(IntToStr(min)),'Минимальное значение', MB_ICONINFORMATION);
end;
begin minZNmasend.