1)
begin
var a:=ReadArrInteger('Введите 10 чисел:',10);
var i:=a.IndexMax;
Writeln('Максимум A[',i+1,']=',a[i]);
<span>end.
</span>
2)
const n=6;
type
Q=record
ch:integer;
zn:integer;
end;
var a:array[1..n] of Q;
j,k,max:integer;
f:boolean;
mx:Q;
begin
write('k: ');
readln(k);
for var i:=1 to n do
begin
writeln('Дробь ',i);
write('Введите числитель= ');
readln(a[i].ch);
repeat write('Введите знаменатель= ');
readln(a[i].zn);
until a[i].zn>0;
end;
writeln('Введенные дроби:');
for var i:=1 to n do
write(a[i].ch,'/',a[i].zn,' ');
writeln;
j:=0;
for var i:=1 to n do
if (a[i].ch div a[i].zn mod k = 0) then j:=j+1;
writeln('кол-во ',j);
end.
Пример
k: 8
Дробь 1
Введите числитель= 16
Введите знаменатель= 2
Дробь 2
Введите числитель= 64
Введите знаменатель= 8
Дробь 3
Введите числитель= 120
Введите знаменатель= 15
Дробь 4
Введите числитель= -15
Введите знаменатель= 5
Дробь 5
Введите числитель= -16
Введите знаменатель= 2
Дробь 6
Введите числитель= -8
Введите знаменатель= 1
Введенные дроби:
16/2 64/8 120/15 -15/5 -16/2 -8/1
кол-во 5
Что такое бит?Если говорить по-простому, то бит - это единица информации. Может принимать два значения - в информатике это "1" или "0". "Истина" или "Ложь". "True" or "False". В электронике "1" и "0" отличаются величиной напряжения. Так по величине напряжения любое устройство может понять "1" ему прислали или "0".Итак:Бит может принимать значения: 1 или 0<span>Что же такое <span>байт1</span>?</span>Это величина информации равная 8 битам. Т.е. 1 байт это 8 последовательных "1" или "0" (битов). Например:000000011010101011111010<span>И т.п... Так "1" и "0" можно переставлять местами 256 различными способами. И байт может принимать 28 = 256 различных значений.</span>
Нужно нажать одновременно Cntrl+Alt+Delete
Не очень понятно, в одно ли действие это должно быть, и какой язык программирования. Ну да ладно.
Понять четное число или нет, можно с помощью такого оператора как "%". Называется он деление без остатка. Это такой же оператор как +, -, *, /. Работает он так: если мы напишем, например, 10%2, он вернет ноль, так как 10 делится на 2 нацело. Если мы напишем 10%3, то получим единицу, так как 10 на три нацело не делится. Это выглядит как 3 + 3 + 3 + 1. Эту единицу мы и получим как результат. Соответственно, написав, например, 12/3 , получим 0.
20%6 = 2 (20 = 6 + 6 + 6 +2)
18%5 = 3 (18 = 5 + 5 + 5 + 3)
30%10 = 0 (30 = 10 +10 +10 +0)
и так далее. То есть мы получаем остаток от целого деления. Этот оператор позволяет нам так же узнать, четное ли число в левой стороне. Для этого в правой стороне нашего выражения нужно поставить двойку.
Примеры:
10 % 2 = 0 (если ноль, то четное)
11%2 = 1 (если единица, то нечетное)
15%2 = 1
и т.д.
соответственно, тебе нужно в начале проверить, больше ли вводимое число чем 9 (для этого нужен оператор сравнения (твое число > 9). Так мы узнаем двухзначное ли оно. А потом применить оператор % с двойкой и посмотреть что получается в результате, ноль (четное) или единица(нечетное).