Const n=15;
var a: array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin a[i]:=random(10); write(a[i], ' '); end;
writeln;
for i:=1 to n do if a[i]=4 then write('A[',i,']', ' ');
<span>end.</span>
Div - это целочисленное частное, т.е. если твое число нацело не делится на какое то другое число, опирацией div ты получишь целочисленное частное, например: 11 div 5 = 11 не делится на 5, ближайшее число которое делится на 5 это 10, значит 11 div 5 = 10
mod - это целочисленный остаток, рассмотрим тот же пример, 11 mod 5 = 11 не делится на 5, ближайшее число которое делится на 5 это 10, значит 11 mod 5 = 11- 10= 1
1. 26
2. 6
3. 50
4. 1
5. 1
6. 1
7. 8
Var
mas:array[1..100] of integer;
min,i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
min:=mas[1];
for i:=2 to 10 do
if mas[i]<min then
min:=mas[i];
mas[10]:=min;
for i:=1 to 10 do
write(mas[i],' ');
end.