Eugenrar
29.09.2020 06:53

в интернете нет верных ответов.​


в интернете нет верных ответов.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
cfr1
10.05.2020 07:06
1)Назовите систему, в которой для записи любых чисел используется всего один символ?
В) Унарная;

2)Устройство, обеспечивающее обмен информацией с контроллерами периферических устройств, называется:
Г) PCI-шина.

3). Какой из тегов HTML рисует горизонтальную линию?
hr

4) Какой из перечисленных языков программирования относится к низкоуровневым?
Г) Assembler.

5)Файлы с расширением .cvs используют для хранения:
Г) Изображений.

6)Файл размером 2000 Кбайт передаётся через некоторое соединение в течение 30 секунд. Определите размер файла (в Кбайт), который можно передать через это соединение за 12 секунд.
Пропорция 2000Кбайт / 30с * 12с = 800Кбайт
А) 800 Кбайт;

7)Переведите число 126 из десятичной системы счисления в двоичную систему счисления.
А) 1111110;

8)Укажите, что в электронных таблицах не применяется в формулах для ссылки на другие ячейки:
А) Гиперссылка;
0,0(0 оценок)
Ответ:
lerkalukashenko1
21.04.2023 17:56
Программа без массива:
const n=10;
var a,i,max,min:integer;
begin
Randomize;
min:=69; max:=15;
for i:=1 to n do
 begin
 a:=random(55)+15;
 write(a,' ');
 if a>max then max:=a;
 if a<min then min:=a;
 end;
writeln;
writeln('max-min = ',max,'-',min,' = ',max-min);
end.

Пример:
21 16 40 57 41 63 48 50 54 45 
max-min = 63-16 = 47

Программа с массивом:
const n=10;
var a:array[1..n] of integer;
i,max,min:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(55)+15;
 write(a[i],' ');
 end;
writeln;
min:=a[1]; max:=a[1];
for i:=2 to n do
 begin
 if a[i]>max then max:=a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('max-min = ',max,'-',min,' = ',max-min);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота