М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Аллюрорка
Аллюрорка
10.11.2021 06:01 •  Информатика

2. найти наименьший элемент массива случайных чисел

👇
Ответ:
cvetok555
cvetok555
10.11.2021
Задачка, конечно, простейшая, но и на ней можно проследить состояние изучения программирования в наших школах.

{ 1. Borland (Turbo) Pascal 7.0, 1994г., статический массив }

uses Crt;
const
  nn=1000;
var
  i,n,mn:integer;
  a:array[1..nn] of integer;
begin
  Randomize;
  ClrScr;
  Write('n='); Read(n);
  mn:=1000;
  for i:=1 to n do begin
    a[i]:=Random(199)-99;
    Write(a[i],' ');
    if a[i]<mn then mn:=a[i]
    end;
  Writeln;
  Writeln('Наим. элемент ',mn);
  ReadKey
end.

Выполнение приведено во вложении 1.

// 2. Free Pascal 3.0.0, 2015г., динамический массив

uses Crt;
var
  i,n,mn:integer;
  a:array of integer;
begin
  Randomize;
  ClrScr;
  Write('n='); Read(n);
  SetLength(a,n);
  mn:=1000;
  for i:=0 to n-1 do begin
    a[i]:=Random(199)-99;
    Write(a[i],' ');
    if a[i]<mn then mn:=a[i]
    end;
  Writeln;
  Writeln('Наим. элемент ',mn);
  ReadKey
end.

Выполнение приведено во вложении 2

// 3. PascalABC.NET 3.2, 2016г., современное решение

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99);
  a.Println;
  Writeln('Наим. элемент ',a.Min)
end.

Выполнение приведено во вложении 3.

Сделать выводы каждый может сам...

Примечание: все решения сделаны в среде PascalABC.NET 3.2, который для уровня школьных задач можно считать совместимым на уровне исходного текста с вышеприведенными версиями паскалей.
4,7(80 оценок)
Ответ:
0004556189
0004556189
10.11.2021
Var i,min:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to 10 do
if a[i]<min then min:=a[i];
writeln(min);
end.
2. найти наименьший элемент массива случайных чисел
2. найти наименьший элемент массива случайных чисел
2. найти наименьший элемент массива случайных чисел
4,7(23 оценок)
Открыть все ответы
Ответ:
Chernysh14
Chernysh14
10.11.2021

Задание 1:

<html> <head> <style> table{border-collapse: collapse;}  td {border: 2px solid black;} </style> </head> <body> <table style="width:500px; height:500px">  <tr>    <td colspan="8"></td>  </tr>  <tr>    <td rowspan="6"></td>    <td colspan="6"></td>    <td rowspan="7"></td>  </tr>  <tr>    <td rowspan="4"></td>    <td colspan="4"></td>    <td rowspan="5"></td>  </tr>  <tr>    <td rowspan="2"></td>    <td colspan="2"></td>    <td rowspan="3"></td>  </tr>  <tr>    <td></td>    <td></td>  </tr>  <tr>    <td colspan="3"></td>  </tr>  <tr>    <td colspan="5"></td>  </tr>  <tr>    <td colspan="7"></td>  </tr> </table> </body> </html>

Задание 2:

<html> <head> <style> table{border-collapse: collapse;}  td {border: 2px solid black;} td#t1 {background-color: #00fecc;} td#t2 {background-color: #fffeca;} </style> </head> <body> <table style="width:500px; height:500px">  <tr>    <td id="t1" colspan="8"></td>  </tr>  <tr>    <td id="t2" rowspan="6"></td>    <td id="t1" colspan="6"></td>    <td id="t2" rowspan="6"></td>  </tr>  <tr>    <td id="t2" rowspan="4"></td>    <td id="t1" colspan="4"></td>    <td id="t2" rowspan="4"></td>  </tr>  <tr>    <td id="t2" rowspan="2"></td>    <td style="background-color: red"></td>    <td style="background-color: blue"></td>    <td id="t2" rowspan="2"></td>  </tr>  <tr>    <td style="background-color: lime"></td>    <td style="background-color: yellow"></td>  </tr>  <tr>    <td id="t1" colspan="4"></td>  </tr>  <tr>    <td id="t1" colspan="6"></td>  </tr>  <tr>    <td id="t1" colspan="8"></td>  </tr> </table> </body> </html>

Примеры работ:


напишите код для такой таблицы в буду благодарен напишите код для такой таблицы в буду благодарен
напишите код для такой таблицы в буду благодарен напишите код для такой таблицы в буду благодарен
4,8(73 оценок)
Ответ:
Андрей14411
Андрей14411
10.11.2021

Абсолютный адрес ячейки в Excel – это такой адрес, который не изменяется при переносе формулы или ссылки на ячейку в другое место текущего листа книги Excel. Рассмотрим данное определение на примере.

Мы имеем средний прогноз активности отдела на день, которую необходимо скорректировать на коэффициент дня недели. Произведение общего прогноза на коэффициент дня даст на нужный результат. Т.к. общий прогноз един для всех дней, то ссылку на ячейку с его результатом необходимо закрепить, т.е. задать абсолютный адрес на ячейку листа Excel. Для этого перед индексами столбца и строки целевой ячейки необходимо поставить знак доллара «$». На рисунке красная стрелка показывает на подобную ссылку, которая не изменится при протягивании формулы с четвертой строки.

абсолютный адрес ячейки Eхcel

Закреплять все индексы ссылки не обязательно, можно ограничиться каким-то одним. Установив символ доллара перед индексом столбца, Вы зафиксируете только его, а индекс строки будет изменяться при перемещении формулы. При закреплении индекса строки все будет наоборот.

Для того, чтобы быстро изменить адрес ячейки в Excel на абсолютный, установите текстовый курсор на адрес целевой ячейки и нажимайте клавишу F4 клавиатуры до тех пор, пока не закрепите нужные индексы адреса.

Для стиля ссылок R1C1 (Стиль ссылок r1c1) индексы строк и столбцов указываются без квадратных скобок – «R1C1» (ячейка A1).

Объяснение:

4,6(26 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ