Program index;
Uses crt;
Var A: array [1..10] of integer;
i,m: integer;
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 10 do
read (a[i]);
Writeln ('Введите число m');
Readln (m);
for i:=1 to 10 do
begin
if a[i]=m then
Write (i,' ');
end;
readln;
readkey;
end.
===== PascalABC.NET =====
function GetMatrix: array[,] of integer;
begin
var (m, n) := ReadInteger2('Число строк и столбцов в массиве:');
Result := MatrRandom(m, n, 0, 20)
end;
function MinCol(a: array[,] of integer): integer;
begin
for var j := 0 to a.ColCount - 1 do
if a.Col(j).All(p -> p > 10) then
begin
Result := j;
Exit
end;
Result := -1;
end;
begin
var M := GetMatrix;
M.Println(4);
var k := MinCol(M);
if k = -1 then
Println('Нет столбцов, в которых все элементы больше 10')
else
Println('Минимальный номер найденного столбца:', k + 1)
end.
1)176*512=90172 пикселей всего
2)33 Кбайт=33792 байт=270336 бит.
3)270336/90172=3
4) 2^3=8 цветов.
Ответ: 8
Var a,b,c,s : real;
begin
writeln('Vvedite kateti');
read(a,b);
c:= sqrt(sqr(a)+sqr(b));
s:= (a+b)/2;
writeln('gipotenyza=',c,' S=',s);
<span>end.</span>