<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var imin:=a.IndexMin;
Writeln('Номер минимального элемента: ',imin+1,
', значение: ',a[imin])
end.
<u>Пример</u>
n= 17
-20 -14 27 33 -34 -25 -47 33 -46 -5 -36 -3 30 -27 -45 46 41
Номер минимального элемента: 7, значение: -47
1) Браузер
2) Таблица
3) 2 ( обновить ссылку на странице, которая будет вести на новую страницу n, и на самой странице n)
4) Графически представлять данные с помощью графиков и диаграмм, выводить на печать электронные таблицы; вычислять и анализировать данные, а также пересчитывать значения при изменении данных; создавать, открывать, редактировать, а также сохранять таблицы в файле
5)Название документа, название программы и кнопки управления окном
6)Числовые данные
7)Один столбец с числами
8)Параметры диаграммы, тип и вид диаграммы и источник данных диаграмм
Все ответы проверены
В фразе "<span>Семь раз отмерь, один раз отрежь!" 33 символа.
33*16 = 528 бит или 66 байт
</span>
Var
i,min,max:integer;
a:array[1..70]of integer;
begin
for i:=1 to 70 do
begin
a[i]:=random(100);
write(a[i],' ');
if i=1 then min:=a[i]
else if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln;
writeln('Ответ: ',max-min);
<span>end.</span>