//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var n:=ReadInteger('Введите число элементов');
var k:=ReadInteger('Введите число k');
var a:=ArrRandom(n,10,99);
a.Println;
for var i:=0 to n-1 do
if a[i] mod k =0 then println('Кратно',k,a[i]);
end.
Var x: array[1..8] of longint;
Var i,a : longint;
Begin
for i:= 1 to 8 do
begin;
readln(a);
x[i] := a;
end;
Writeln('Массив K:');
for i:= 1 to 8 do
begin;
writeln(',i,' = ',x[i]);
end;
Readln;
end.
(1г /\ Пс) --> 3c = не(1г /\ Пс) \/ 3c = не(1г) \/ не(Пс) \/ 3г = 1с \/ Пг \/ 3г
1с: <span>Марс
Пг: </span><span>Облако
3г: </span><span>Энот
Ответ: </span><span>Экран.
На проверку?!?</span>
Обычный массив: берем список покупок. Допустим, нужно купить молоко, хлеб, яйца, чай и мороженое. Всего покупок: 5. И мы перебираем каждую покупку. В массиве можно записать как: array [1..5], так как 5 покупок. То же молоко под цифрой 1, значит это 1 элемент массива. Чай будет 4 элементом массива.
Двухмерный массив: берем многоквартирный дом. В доме 3 этажа, на каждом этаже 4 квартиры. Соответственно этаж можно приравнять как array [1..3,1..4] 1..3 это количество этажей, 1..4 это кол-во квартир. Если в доме 3x4=12 этажей, то получается 12 элементов массива.
Так же, элементы массива могут быть как одинаковыми, так и разными, но чаще второе. (Пример: дан массив с двумя элементами. Первый элемент равен 5, второй 33)
Создать массив в Pascal:
В var напишите x:array [y..z] of what
x - название массива
y - начальная цифра массива (обычно 1, так и представим)
x - последняя цифра массива (представим как 10)
what - тип (integer, real и т.д.)
Найти значение массива и редактировать его:
a:=x[4]
Данным действием мы присваиваем 4 элемент массива для a.
x[4]:=b
Данным действием мы присваиваем b для 4 элемента массива.
Если что-то непонятно, задайте вопрос в комментарий. Постараюсь объяснить именно то, что вам непонятно.
7 бит информации
N =128
формула Хартли N=2^i
поставляем 128=2^i отсюда i=7, так как 2^7=128