Как сделать так что бы на выводе была информация не об одном объекте. а о нескольких например был вывод всех объектов например с наименьшей или с наибольшей радиацией, а не только одногоtype rad=recordnp: string; doz: integer; end; varsp : array of rad; rdd: rad; i,n,doz: integer; np: string; beginwriteln('введите количество объектов'); readln(n); setlength(sp, n); for i: =0 to n-1 dobeginwriteln('введите сведения о',i,'пункте'); readln(sp[i].np); randomize; doz: =random(100)+1; writeln('показание дозиметра'); writeln(doz); writeln('введите показания дозиметра'); readln(sp[i].doz); writeln('идёт построение списка, подождите'); writeln(''); sleep(100); end; system. console .beep(400,600); for i: =0 to n-1 doif sp[i].doz> 80 then writeln(sp[i].np)else writeln ('объектов с повышенной радиацией не обнаружено'); readln; end. программа написана на паскаль abc.net

Объяснение:

2.

итерационные циклы

while, repeat - until

условие выполнения цикла может быть любым выражением, возвращающим тип Boolean

шаг изменения любой

цикл с параметром

for

начальное и конечное значения - целые числа

шаг изменения параметра равно 1

количество итераций = [конечная граница] - [начальная граница] + 1

3.

цикл с предусловием  

while

минимальное количество итераций = 0 (случай, когда условие while не выполняется при первом проходе)

максимальное количество не ограничено

цикл с постусловием

repeat - until

минимальное количество итераций = 1 (условие выхода проверяется в конце цикла, хотя бы один раз цикл выполнится)

максимальное количество не ограничено

Нужно поставить курсор мышки в окно блокнота и кликнуть левой кнопкой в окне.

Потом убедиться, что при нажатии кнопок на правом цифровом блоке клавиатуры- цифры в окне блокнота набираются (если нет- то нажать кнопку Num Lock, и проверить ещё раз).

Далее, зажать левую кнопку Alt, набрать на правом цифровом блоке 0224 (не зажимая цифры, а нормально, не долго нажимая и отпуская каждую), и после этого уже отпустить Alt- по идее должна набраться русская "а".

Если всё в точности так делаете и не выходит- видимо это какие то заморочки ноутбучной клавиатуры тогда. И, если так, то попробуйте тогда подключить обычную USB-клавиатуру, скорее всего с ней сработает (если у вас есть возможность конечно).