помогите пожалуйста)))очень нужно
10-11 класс
|
1)
var
a:array [1..10] of integer;
min,max,buf,i,g,l:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(16)+5;
write (a[i],' ');
end;
writeln;
max:=a[1];
min:=a[1];
for i:=2 to 10 do
if a[i]>max then
begin
max:=a[i];
g:=i;
end else
if a[i]<min then
begin
min:=a[i];
l:=i;
end;
buf:=a[g];
a[g]:=a[min];
a[l]:=buf;
for i:=1 to 10 do write (a[i],' ');
writeln;
readln;
end.
2)
const
n=10;
var
a:array [1..n] of integer;
j,i,max,k:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(11)+10;
write (a[i],' ');
end;
writeln;
max:=1;
k:=1;
for i:=1 to n-1 do begin
for j:=i+1 to n do
if a[i]=a[j] then k:=k+1;
if k>max then max:=k;
k:=1;
end;
writeln (max);
readln;
end.
Другие вопросы из категории
В небольшом предприятии его сотрудникам выдаётся месячная зарплата. Кассир, имея на руках бухгалтерскую ведомость, собирается ехать в банк за деньгами. При этом он имеет возможность не просто подать заявку на общую сумму, а указать в ней также, какими именно купюрами ему хотелось бы получить её. Делается это для того, чтобы потом было удобнее рассчитываться с каждым отдельным работником (например, если выплаты производится, как говорят, «в конвертах»). Предварительно все исходные данные нужно представить в виде таблицы, где против каждой фамилии сотрудника, как только вводится начисленная ему зарплата, она тут же выражается соответствующим набором денежных знаков. Одновременно подводится и общий итог по всему коллективу для формирования банковского заказа. При определении набора следовать принципу наименьшего числа купюрРади упрощения задачи расчёт вести только на бумажные деньги с точностью до 10 рублей
Для расчётов использовать встроенные функции ЦЕЛОЕ и ОСТАТ из категории «математических» .
Сколько килобайт
будет занимать файл в простом текстовом формате, если в тексте 300 страниц, на
странице 25 строк, а в строке в среднем 45 символов?
Задача
В
каталоге находится 6 файлов:
значений X истинно высказывание
¬ ((X>2) → (X>3))?
1) 1 2) 2
3) 3
Читайте также
Программирование
Решить квадратное уравнения вида ax^2 + bx + c = 0
К решению математическая модель:
Дано:
Нужно:
Связь:
При:
значение Х с соответствующим сообщением, если нет, то выведите на печать "нет".
Помогите, пожалуйста, очень нужно)
Перевести из 2-ойсистемы счисления в 8-10; 16-10
10011101101₂ и
11110001101₂
_________________________________________
Затем Перевести из 10-й с.с.в 3-ю с.с
555₁₀ --> X₃ (C проверкой)
785₁₀ --> X₇ (С проверкой) 7-ю с.с
_________________________________________
+111011₂
1101₂
-111011₂
1100₂
х11011₂
101₂
10101110₂÷111₂
Как сделать так, чтобы в презентации(PowerPoint) нарисованная качеля качалась бесконечно?